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DES PROGRAMMES POUR VOTRE 

ORDIN ATEUR lAPPLE H et ll e . CANON X-07. CASIO FX 
702-P. COMMODORE 64 ET VIC 20. GOUPIL. HEWLETT PACKARD 
HP 41. MULT1TECH MP-F II. ORIC 1. SHARP PC 1500, MZ 80. 
SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 80. TEXAS T1-99/4A. 
THOMSON TO7. 

DEUX SUPER CONCOURS : 10000^ de 

prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en CALIFORNIE 
pour le meilleur logiciel CHAQUE TRIMESTRE. 



Edito 



Nous vous avons mitonne un 
tres beau petit glossaire. tous 
les mots barbares de !a micro- 
informatique y sont recenses. 
C'est le cadeau que recevront 
1 00 lecteurs tires au sort simple- 
ment pour envoyer le bulletin de 
vote habitue!. Car, vous !e savez, 
c'est le numero ou nous faisons 
appel aux urnes, vous allez elire 
le meilleur logiciel du mois. Une 
foule de cadeau ce mois-ci LA 
REGLE A CALCUL offre un livre 
a chacun des premiers dans leur 
categone. SQUIRELLE recom- 
pense le meilleur ORIC avec 
deux logiciels (tout (aits, pas be- 
som de les taper!). HACHETTE 
offre un ordinateur ALICE et 
HEBDOG1CIEL 10O0O francs. 
Pius une option sur le voyage en 
Calilornie el une option sur la 
BROTHER EP 22 ofterte par 
DUR1EZ. Votez. les participants 
ont besoin de vous! 



Au piquet ! PC 1 21 1 . PC 1 251 et 
HP 75. vos maitres sont trop fati- 
gues pour nous envoyer des 
programmes, ils seront punis 
pendant un mois. le temps de 
nous envoyer des programmes 
parfaits. MPF II qui a subi le me- 
me sort le mois dernier revient 
parmi nous avec un tres joli pro- 
gramme de Tour de Hanoi'. Et le 
CANON X-07 est la, bienvenue! 



Vous savez tous maintenant que 
TEXAS INSTRUMENTS se retire 
du marche de la rnicro-informa- 
tique. Hebdogiciel a d'ailleurs 
ete un des premiers a t'annon- 
cer. Nous sommes plus de 
80000 a nous poser des ques- 
tions. TEXAS FRANCE y a repon- 
du. si le TI-99 est arrete, TEXAS 
continue et abandonne seule- 
ment I'ordtnateur familial, et 
avec panache: la garantie est 
doublee pour ceux qui en font 
I'acquisition en ce moment et le 
service apres-vente est assure 
pendant trois ans; le temps de 



taper pas mal de programmes! 
Et nous ne vous abandonnerons 
pas. toujours deux programmes 
par semaine dans I'Hebdo.un en 
basic et un en basic etendu Et 
probablement assez vite. des 
programmes en assembleur 
(avec la mini-memoire). 
On se demande qui va prendre 
le relais a la tete de ce marche : 
le COMMODORE 64 ? encore un 
peu Cher. Le SPECTRUM? un 
peu "pointu" pour un usage fa- 
miliale. L'ORIC? trop technique 
el le chargement des cassettes 
programmers est un peu trop 
lent pour les non-program- 
meurs. Probablement, le THOM- 
SON T 07 a de fortes chances: 
francais, bien distribue. en place 
dans les ecoles, ii ne lui manque 
plus qu'un clavier un peu plus 
sympa et une legere baisse de 
prix. Que les possesseurs d'ordi- 
nateurs qui ne sont pas cites ne 
se vexent pas, nous savons bien 
que Ton peut acheter sa "bete" 
par amour! 

G. CECCALDI 



Menu 



Levez la tete! Vous verrez peut- 
etre tomber du ciel les parachu- 
tistes du Sauvelage de Didier 
KIMES pour APPLE II ou les vola- 
tiles du Tir aux Pigeons de Pierre- 
Marie BERNE2 (VIC 20) ou en- 
core les monstres volants et les 
dragons du PC 1500 d'Ofivier 
FRANCE, a moins que ce ne soit 
plus simplement une balle de 
tennis qui traverse le court avec 
TENBALL. Francois ROUILLE et 
son T 07. Des casse-tete? Carre 
diabolrque pour CANON X-07 
par Luc LEVYfle premier canon- 
nier de I'hebdo) et une tour de 
HANOI en couleurs pour MPF II 
par Luc LE MOEL et Didier 
KIMES (le meme que celui du 
Sauvetage dAPPLE, APPLE II et 
MPF II seraient-ils vraiment 
compatibles?). Le petit lour de 
voiture habitue! avec FX 702-P 
el J-L GIRARD (Grand Prix) 
avanl d'attaouer les ieux . deux 
suite page 16 



Bourn? 

Canon X-07 



C'est toul petit, ca pese trors lois 
rien. ca a une fmition impecca- 
ble et beaucoupdegueule Caa 
des performances au-dessusde 
la moyenne. des pcripheriquos 
performants et meme des gad- 
gets, Et ca vient du Japon ! Vous 
lavez reconnu, c'est le X-07 de 
CANON. !e petil ordinateur por- 
table qui n'a rien a envier aux 
grands! 

Distribue (el entretnnu!) par 
CANON FRANCE, une dos pre- 
mieres societes francaises do 
bureauttque. eel ordmnteur esl 
probablement voue a un grand 
succes dans notre pays. 

Sous une presentation el6gan- 

te. style "HI -Fl". se cache un NSC 

800 (compatible 7 80), 20 Ko dfl 

ROM extensible a 42 Ko et 8 Ko 

suite page 6 



HIPPOREBUS trouvez lexpression qui se cache dans la B.D. de I'hippocampe Decompose en trois syllabes dans les t rois premieres cases, le "tout" a evidemment un rapport avec I'mformatique 
(solution en page inteneure). 



sajnte roi firsA fortune: 

ETJON TR^SoR £STC£l£bRE 
Q 



CETTE VILLE 5AIWTH DUJUDAl-SMC 
A DONN6: SON NOM A UN MOUN/EMEnT 
AU'0«iclN£ I>e L'^TAT D'isRAEL 



HE BIEN CHERS LECTEURS , MON TOUT 
ESTUNSYSTEME ASSEMBLEUR... 




(N°9 



) rJ6cembra 83 



) 



Allemagne 3.50 DM - Belgique 55 Frs Canada 2,50 S - Luxembourg 57 Fr:; Suisse 3 Frs - 



SAUVETAGE 



Les occupants d'un helicoptere en difficulty sautent 

en parachute dans le lac ou vous etes en train de 

pecher 

Arriverez-vous a tous les sauver avec votre f rele embar- 

cation. 

DIDIER KIMES 



Ce programme utilise les deux pages graphiques alternativemetil 
Pendant que la page 1 (ou la page 2) est visualisee. le programme 
dessme sur la page 2 (ou sur la page 1) grace aux "POKE'' suivants 

POKE-16300. Affichage page 1 

POKE 230.64 Dessm page 2 

POKE-16299, Aflichage page 2 

POKE 230.32 Dessin page I 

(La page 1 occupe les adresses S 2000 a S 3FFF. la page 2 occupe les 
adresses S 4000 a S 5FFF.) 



ROUTINE SON 



anwcTASE 



home 



VTAB 4i MTAB 10 



1100 

1080 A<0> - I>B(B> - OiB ' 

I10O IF C • O THEN QOTO 

1 1 1 FOR J - O TO C - 



1113 IF PA - O THEN PP - 20l GOTO 




ei 



INVERSE 1 PRINT -S.A.U.V.E.S. 

A.R.D.E-i NORMAL 
VTAB Hi PRINT -VOUS DEVEZ PL 

ACER VOTRE BARQUE ' 
PRINT > PRINT -DE MAN1ERE A R 

ECUPERER LE MAXIMUM" 
PRINT i PRINT -DE PARACHUTIST 

ES- 
PRINT i PRINT "CECI QRACE AUX 

TOUCHES -> OU <-" 
VTAB 22: HTA8 I9| PRINT ~BONN 

E CHANCE ! . . . " 
FOR I - 1 TO SOOOt NEXT I 
FOR I • 1 TO Si READ L.Ti NEXT 



1120 
1130 
1140 



1130 

PP - 19 

X - XP<PA>iY - YP(PA) 

PDKF 768, 3t POKE 76V r PP! POKE 
770. Xt POKE 771, Yi CALL 772« 

NEXT J 

IF B - THEN 90T0 1193 

FOR J - O TO B - IlPA » B(J 



IF PA - O THEN PP ' 



20 t OOTO 



83 GOSUB 3O0O 

90 IF PEEK (24376) < > 21 THEN 

OOSUB 3300 
100 POKE 232,0i POKE 233,961 9CALE- 

1: ROT- O 
103 02 - I7iX1 - 90lG3 - 17iX2 - 

90jQ - 6>Q1 - 17IXA - 90iK - 

OiS - OiH - 0iS4 - 10l33 - 1 

OlS6 - IOiSS - 0lK2 ■ O 
110 HGR ■ HGR2 

POKE 230,32 

HCOLOR- 3l HPLOT 0,0i CALL 6 

2434 

GOSUB 4OO0 

OOSUB 23O0 

GOSUB 2380 

HCOLOR- 

HPLOT 184,49 TO 199,49 

HPLOT 173, SOi HPLOT 173, 38l HPLOT 

171,54i HPLOT 180,34 

ORAM Q2 AT XI, 141 

POKE - 163OO,0l POKE - 163 

02, O 

POKE 230,64 

HCOLOR- 3l HPLOT 0,0i CALL 6 

2434 
173 OOSUB 40OO 

176 GOSUB 2340 

177 B4 - 31tS3 - S2iS6 - S3 
17B OOSUB 2620 

179 H4 - HIiHS - H2lH6 - H3tK2 - 



I PP - 19 

I X - XP(PA) lY - YPIPAl 
» POKE 769, Oi POKE 769, PPi POKE 
770,Xi POKE 771, Yi CALL 772l 
NEXT J 



SO I D 
5020 
5030 



30 90 
3090 
3999 



1193 


RETURN 


1999 


REM •*•••»*•••• 








• FIN • 




• ' 


2000 


IF D - THEN S3 - Ol RETURN 


2003 





IF PEEK I - 16394) 

RETURN 
XX - PEEK ( - 16384 

POKE - 16368,0 

IF XX - 21 THEN 61 - 61 - 
J GOTO 306O 

IF XX - 8 THEN 61 - 61 ♦ 

GOTO 3060 

RETURN 

IF SI < * 16 THEN 61 - 1 
XA - 130i6 - 3: GOTO 3090 

IF 61 > - 19 THEN Gl - 1 
XA - 30i6 - 9i GOTO 3090 
01 - 17iXA - 90l0 - 6 

RETURN 

REM •••••••••••••••• 

•INITIALISATION* 
• PASE • 
•GRAPH I QUE 1*2 • 



29 THEN 
128 



4000 HCOLOR- Ol HPLOT 10,4 TO 27 

0,4i HPLOT 3,3 TO 273, 3l HPLOT 
0,6 TO 279,61 MPLOT 0,7 TO 2 
79, 7t HPLOT 0,8 TO 279,8 

4010 FOR Y - 9 TO 13t HPLOT O, Y TO 
279, Yi NEXT V 



120 



140 



142 



ISO 



170 



li POKE BOS, OH POKE 806. SOl 

CALL 807i GOTO 23O0 

IF A(D) - 2 THEN HCOLOR- 3 
jX - XP(D)lY - YP(D)i DRAW I 



180 



187 

189 



230 
240 
230 
260 



293 
300 
310 
320 



322 

sas 

327 
330 
999 



HCOLOR- 

HPLOT 199.49 TO 214,49 

HPLOT 172,31i MPLOT 172, 37l 

179,31 

ORAW B3 AT X2, 141 

REM 

REM ••••••••••••••••» 

■DEBUT PROGRAMME* 



OOSUB lOOO 

GOSUB 2000 

OOSUB 3000 

POKE 769,3i POKE 769,621 POKE 

770, Xlt POKE 77l,14li CALL 7 

72: POKE 768,0l POKE 769,0li 

POKE 770, XAi POKE 771,141i CALL 
772i92 - QliXl - XA 
POKE - 16300,0i POKE - 163 
02,0 

POKE 230,64 
GOSUB 1 1 00 
OOSUB 3OO0 

POKE 76B,3i POKE 769, G3i POKE 
770, X2i POKE 771,1411 CALL 7 
72i POKE 768, Oi POKE 769, Gil 

POKE 770, XAl POKE 771,I41t CALL 
772163 - 0HX2 - XA 
IF S3 - O THEN 330 
GOSUB 2340 

14 - BtiBS - S2i86 - S3 
GOTO 2O0 

REM W MHH It W I W H 

• DEPLACEMENT • 



• PARACHUTIBTES • 

lOOO I - 2iB - OtC - OlD - Ol FOR 

J - 9 TO O STEP - I 
1010 IF A)J) < > I THEN OOTO 1 

040 
1020 IF J < > O THEN QOTO 104O 

- OiC(C) - 'iC - C ♦ 1 

NT I Rt • 3) • 

>l ■ * I 
JOTO iUtl 

.;.- a(ji - otcto - jic - c + i 

1030 IFJ-3 0RJ-6DRJ-9 THEN 

D - Ji OOTO 1060 
I03S A(J * 1) - liB(B) - J * ltB ■ 



2040 


HCOLOR- 


2030 


CA - 70 " <D - 9) • 110 • (D 




- 6) • 130 • (D - 3) 


206O 


ORAM 21 AT CA, 140 


2061 


HCOLOR- 3i ORAM G2 AT XI, 14 




It HCOLOR* Ol DRAM 61 AT XA, 
141 
POKE - 16300,0 


2070 


2073 


FOR I - SO TO 20 STEP - ll 




POKE 803,1) POKE 806, ll CALL 




9071 NEXT I 


2080 


FOR J - 1 TO 9iA(J) - Oi NEXT 
J 

K - K ♦ ll IFK-3 THEN 212 


FOR I - TO 1300i NEXT I 


2100 


2106 


2110 


GOTO 120 


2120 


IF 8 > H THEN H - 3 


2123 


POKE 230,32i GOSUB 2633 


2126 


K - OiS - O 


2127 


FOR I - 1 TO SOOOt NEXT I 


2130 


RESTORE 


2140 


FOR I - 1 TO Si READ L.Ti POKE 




803, Ll POKE 906, Tl CALL B07i 




NEXT I 


2130 
2499 


GOTO 120 


• AFFICHAQE * 

• SCORE • 




2300 


31 - INT (3 / 100)182 - INT 




( tS - (SI • 100) > / I0)i83 - 




INT (S - (SI • 100) - 132 • 



4020 



4030 

4060 

4070 
4030 
4999 



TO 



HPLOT 0,16 TO 279,161 HPLOT 
0,17 TO 279,17i HPLOT 0,11 
279,191 HPLOT 3,19 TO 273,19 
j HPLOT 10.20 TO 270,20 

HCOLOR- 3: DRAW 11 AT SO, 10 
I DRAM 12 AT 120, lOi DRAW 13 

AT 190,10 

HCOLOR- Ol DRAM IS AT 173.3 



DRAM 14 AT 20,60t DRAW 14 AT 
90,40i DRAW 14 AT 220,30 
HPLOT O, 10B TO 279.109 
RETURN 
REM •••••••■••■■•••• 



2310 
2320 
2330 
2340 



10)) 

IF SI - THEN 81 - 10 
IF 92 - THEN 32 - 10 
IF S3 - THEN S3 - 10 
POKE 769,0i POKE 769, 84 i POKE 
770,77i POKE 771.101 CALL 77 
Zl POKE 769, 83t POKE 770, 92 I 
POKE 771,101 CALL 772l POKE 
769. 36i POKE 770,971 POKE 77 
1, lOi CALL 772 
POKE 768, 3i POKE 769, SI i POKE 
770,771 POKE 771, lOi CALL 77 
2i POKE 769,92t POKE 770, 82l 
POKE 771,10t CALL 772l POKE 
769,331 POKE 770, B7i POKE 77 
1,101 CALL 772 
RETURN 
REM •••»••••••••••••• 

• AFFICHAGE • 



H I OH T- SCORE 



IITIALISATION* 



3000 FOR I - TO 9i READ XP(!)t 

NEXT 
5010 FOR I - O TO 9i READ YP(I)1 

NEXT 
3O40 RETURN 

3300 D« - CHR* (4)i REM CTRL-D 
5510 PRINT D4I-BL0AD SAUVE-FORME 

3313 REM 

• ROUTINE DRAM • 

3320 FOR I - 772 TO 804 

3330 READ DR 

SS40 POKE I , DR 

3330 NEXT I 

3360 REM •.•■•.#•........• 

• ROUTINE SON • 

3370 FOR I - 807 TO 927 

3380 READ SR 

3390 POKE I,SR 

3600 NEXT I 

3610 RETURN 

36IS DATA 02, 145,02,56,02,79 

,02,123.04,100 

3620 DATA 136,130,130,130,110 

,110, 110,70,70,70 

5630 DATA 39,93, 110, 135,93, 1 1 

0,133,83,110,133 

3640 DATA 174,0,3,32,240,246 

, 174, 1,3,32,4B,247, 174,2,3, 1 
60,0, 173,3,3,32, 17,244, 166,2 
6,164,27, 169,0,32,1,246,96 

3630 DATA 173.4B, 192, 136,209,0 
3, 206, 37, 03, 240, 9, 202, 20B, 24 
6,174,38,03,76,39,03,96 



> .3 THEN GOTO 



2380 


HI - INT (H / 100) lH2 - INT 
<<H - (HI • 1001) / 10HH3 - 
INT (M - (HI • 100) - (H2 • 

IF HI - THEN HI - 10 
IF H2 - THEN M2 - 10 














2390 
2600 


ROUTINE DRAWN 






2610 


IF H3 - THEN H3 - 10 














2620 


HCOLOR- 


0304- 


AF 


no 


03 


LDX 


•0300 


2630 


DRAW H4 AT 143, lOi DRAW H3 AT 


0307- 


20 


Fft 


F6 


JTJR 


•F6F0 




ISO. 10) DRAW 116 AT 133,10 


030A- 


AS 


01 


03 


LDX 


•0301 


2640 


HCOLOR- 3 


0300- 


20 


» 


F7 


J Oft 


•F730 


-650 


DRAM HI AT 143,101 DRAM H2 AT 


O3I0- 


AE 


02 


03 


LDX 


•0302 




ISO, iOl DRAM H3 AT 133,10 


0313- 


AO 


ut, 




LDY 




2655 


Kl - K 


0313- 


AD 


03 


03 


LDA 


•0303 


2660 


IF Kl - THbN Kl - 10 


0318- 


20 


II 


1 4 


JGR 


•F4II 


2670 


HCOLOR- 


0318- 


AA 


IA 




LDX 


• 1A 


26B0 


DRAM K2 AT 219, 10 


0310- 


M 


IB 




LDY 


• IB 


2670 


HCOLOR- 3 


03 1 F- 


.,7 


00 




LDA 


••00 


2700 


DRAM Kl AT 219, 10 


0321- 


20 


01 


FA 


J8R 


•F60I 


2710 


RETURN 


0124- 


60 






RTB 





0327- 


ns 


-■■ 


CO 


LDA 


•C03O 


OS2A- 


tm 






DCY 




032B- 


00 


on 




BNE 


•0337 


032D- 


rr 


7". 


03 


DEC 


•0323 


0330- 


FO 


09 




BES 


•033B 


0332- 


CA 






DEX 




0333- 


00 


FA 




BNE 


•OS28 


0333- 


A£ 


7', 


03 


LDX 


•0326 


033B- 


*r 


77 


03 


JMP 


•0327 


033B- 


60 






RTS 





TABLE DES FORMES 



3*> 



$* 



6OO0- 


15 


OO 


2C 


CO 


37 





43 


oo 


6440- 


6008- 


U= 


oo 


SA 




6 = 


C ) 


72 


00 


6449- 


6010- 


n 


00 


B9 


oo 


9" 


00 


••. : 


00 


6430- 


6018- 


n 


oo 


DC 


01 


4c 


Ol 


B7 


02 


6438- 


6020- 


fft 


03 


D3 




CO 


09 


Cs 




6460- 


6028- 


ao 


07 


07 


08 


69 


DA 


77 


BE 


6468- 


6030- 


li; 


17 


2D 


13 


CK> 


00 




2D 


647©- 


603B- 


33 


c- 


2" 


2D 


I'd 


33 


2D 


35 


6479- 


6040- 


oo 


oo 


CO 


2D 


33 


DF 


OA 


28 


6480- 


6048- 


FE 


13 


2D 


ZZ 


OO 


00 


oo 


40 


6488- 


60S0- 


EA 


zz 


OD 


13 


3F 


77 


A9 


oo 


6490- 


6058- 


OO 


00 


2D 


c 5 


IB 


2E 


2D 


FF. 


6498- 


6060- 


13 


2D 


J5 


OO 


oo 


00 


4D 


DA 


64AO- 


6068- 


33 


20 


33 


DF 


2E 


2D 




OO 


64A8- 


6070- 




00 


2D 


33 


DF 


4A 


31 


DF 


64BO- 


6079- 


4A 


31 


CO 


OO 


00 


2D 


33 


DF 


6«B9- 


6090- 


7.E 


2D 


FE 


33 


2D 


35 


DO 


OO 


64C0- 


6068- 


oo 


20 


33 


DF 


26 


20 


FE 


13 


64C9- 


6090- 


20 


33 


00 


CO 


00 


2D 


35 


DF 


64DO- 


609B- 


6E 


31 


DF 


ZE 


2D 


06 


90 


00 


64D8- 


60A0- 


00 


2D 


60 


2D 


6D 


2D 


i,D 


2D 


64E0- 


60A8- 


6D 


2D 


hD 


FA 


DF 


IF 


DF 


IF 


64EB- 


60BO- 


DF 


DF 


1E> 


DF 


IB 


2E 


2D 


OD 


64F0- 


60B8- 


40 


09 


ID 


OD 


2D 


6D 


20 


4D 


64F8- 


60CO- 


FA 


DB 


DF 


IF 


IF 


DF 


DF 


18 


6300- 


60C8- 


IF 


OF 


2A 


2D 


OD 


20 


6D 


2D 


6508- 


60D0- 


60 


4D 




2D 


6D 


02 




00 


6310- 


6O08- 


oo 


4D 


OD 


2D 


4D 


49 


2D 


t.D 


6319- 


60E0- 


2D 


6D 


Dl 


DF 


IB 


OF 


IB 


DF 


6320- 


60E8- 


DG 


FB 


F8 


33 


2D 


6D 


69 


29 


6329- 


60F0- 


60 


2D 


hD 


■ID 


4 7 




?r 


IB 


6530- 


60F8- 


IF 


DF 


DB 


DB 


FB 


FB 


33 


48 


6539- 


6100- 


00 


2D 


4D 


4 9 


2D 


6D 


2D 


CD 


6540- 


6108- 


11 


OO 


00 


CO 


40 


69 


2D 


68 


6549- 


6110- 


4D 


69 


2D 


6D 


2D 


6D 


FA 


DB 


6S30- 


6118- 


DF 


IB 


DF 


IF 


DF 


DF 


IF 


OF 


6339- 


6120- 


37 


OD 


OD 


OD 


4D 


4D 


69 


09 


6360- 


6129- 


2D 


u 


20 


60 


FA 


01 


DB 


IS 


6368- 


6130- 


DF 


F8 


IB 


DF 


IF 


FF 


z-z 


4D 


6370- 


6139- 


69 


20 


60 


09 


4D 


29 


20 


OD 


637B- 


6140- 


20 


u 


02 


OO 


00 


OO 


48 


49 


6580- 


6149- 


•><? 


49 


49 




27 


2D 


20 


2D 


6589- 


t ISO- 


*D 


49 


«9 


47 


01 


on 


DB 


DB 


6S90- 


6138- 


38 


FF 


DB 


IB 


3F 


3F 


OF 


OS 


6398- 


6160- 


08 


DB 


9B 


47 


47 


47 


47 


29 


63A0- 


6168- 


4D 


47 


47 


4 'J 


29 


4 


49 


49 


63A8- 


6170- 


01 


DB 


DB 


DB 


DF 


DIi 


DB 


DB 


63B0- 


6178- 


OB 


FF 


DB 


Oil 


DB 


33 


47 


47 


63B8- 


6180- 


ov 


2D 


6D 


47 


49 


47 


47 


09 


63C0- 


6189- 


AD 


47 


49 


01 


DB 


1!!' 


SF 


FF 


63C9- 


6190- 


08 


»R 


DB 


DB 


DB 


IB 


FF 


DB 


6SDO- 


6199- 


08 


4A 


49 


09 


60 


4 9 


4 9 


49 


63D8- 


61AO- 


4'^ 




49 


49 


60 


4 9 


Dl 


DB 


63E0- 


61A8- 


18 


DF 


DB 


nn 


DO 


DB 


DB 


DB 


6SE8- 


61B0- 


08 


38 


3F 


Dt 


S3 


29 


60 


49 


63F0- 


61D8- 


49 


49 


49 


49 


47 


4 9 


47 


09 


63F0- 


61CO- 


2D 


60 


Dl 


38 


DF 


DB 


DB 


DB 


6600- 


61CB- 


DB 


DB 


08 


DB 


Dl 


W 


18 


FF 


6608- 


6IDO- 


4A 


29 


2D 


4D 


49 


47 


4 7 


47 


66IO- 


61D8- 


49 


49 


49 


47 


49 


BD 


IB 


FF 


6618- 


6IE0- 


DF. 


DB 


DB 


08 


DB 


on 


MFI 


mi 


6620- 


61E9- 


in 


FF 


DB 


33 


49 


47 


2D 


40 


6628- 


6IF0- 


49 


49 


49 


49 


47 


49 


47 


2D 


6630- 


6IF8- 


4 


DA 


08 


3F 


3F 


FF 


DB 


DB 


6638- 


6200- 


DM 


DB 


3F 


3F 


FF 


DB 


DM 


S3 


6640- 


6208- 


49 


49 


49 


47 


29 


4D 


49 


49 


6649- 


6210- 


*'> 


6D 


49 


47 


07 


DB 


DB 


DB 


6630- 


6218- 


111 


FF 


DB 


DB 


IB 


rr 


DB 


08 


6639- 


6220- 


Ob 


DB 


33 


09 


2D 


60 


49 


47 


6660- 


6228- 


09 


2D 


60 


49 


20 


40 


47 


49 


666B- 


6230- 


49 


DA 


DB 


DB 


DB 


on 


a 


n 


6670- 


6238- 


FF 


08 


DB 


on 


3B 


DF 


FF 




6679- 


6240- 


60 


47 


2D 




49 


49 


49 




6680- 


6248- 


49 


49 


49 




89 




OB 




66B0- 


6230- 


DB 


08 


MM 


DB 


DB 


DB 


3B 


DF 


6690- 


6238- 




F8 


OA 


6D 


49 


29 


6D 


49 




6260- 


49 




49 


49 


49 


47 


4 9 


89 




6268- 


D8 


DB 


DB 


DB 


DM 


DB 


DB 


nn 


&6AD- 


6270- 


DB 


08 


3F 


DF 


3F 


37 


09 


20 


6680- 


6278- 


6D 


49 


49 


47 


49 


47 


49 


4 7 


66BB- 


6280- 


49 


49 


49 


02 


OO 


OO 


00 


49 


66C0- 


6288- 


49 


4 9 


47 


49 


49 


47 


49 


4D 


66C8- 


6290- 


49 


47 


47 


B9 


Fill 


DB 


DB 


08 


66D0- 


6298- 


3B 


FF 


DB 


DB 


DB 


DB 


D8 


DB 


66D8- 


62AO- 


DB 


4A 


49 


49 






49 


49 


A6E0- 


62A8- 


20 


20 


2D 


2D 


4D 


49 




Dl 


/,/.( n 


62B0- 


08 


on 


-.11 


^p 


3F 


3F 


3F 


3F 


66FO- 


6289- 


IF 


DB 


DB 


DB 


DB 


DB 


13 


6D 


66F8- 


62C0- 


49 


49 


49 


49 


09 


20 


2D 


2D 


6700- 


62C8- 


40 


49 


09 


6D 


49 


Dl 


DB 


FF 


6708- 


62D0- 


nn 


01 


3B 


3F 


3F 


3F 


FF 


DB 


67 lO- 


6208- 


DB 


DB 


OS 


BF 


29 


2D 


48 


49 


6718- 


62E0- 




09 


6D 


OD 


OD 


2D 


6D 


4 9 


6720- 


62E8- 


49 


09 


41) 


DA 


in 


DB 


DB 


3B 


6728- 


62F0- 


:r 


FF 


rr 


3B 


3F 


3F 


3F 


3F 


6730- 


62F8- 


3F 


TF 


FF 




29 


28 


2D 


20 


6738- 


6300- 


2D 


2D 


2D 


OD 


OD 


40 


29 


20 


6740- 


6308- 


2D 


2D 


2D 


70 


40 


DA 


IB 


3F 


6748- 


6310- 


3F 


3F 


3F 


'.F 


3F 


3F 


3F 


3F 


6750- 


631B- 


3F 


3F 


3F 


3F 


3F 


3F 


[IF 


33 


f./r.i] 


6320- 


49 


09 


2D 


2D 


2D 


2D 


2D 


2D 


6760- 


632B- 


2D 


2D 


2D 


20 


20 


2D 


2D 


6D 


6 769- 


6330- 


49 


HA 


OB 


IB 


3F 


3F 


3F 


3F 


6770- 


6338- 


3F 


3F 


'.r 


3F 


3F 


3F 


3F 


FF 


6778- 


6340- 


DB 


on 


"ii 


49 


17 




69 


49 


6780- 


6348- 






47 


69 


49 


09 


4D 


Dl 


6788- 


6350- 


08 


3B 


DP 


IB 


til 


DB 


[IM 


DB 


6790- 


6358- 


DB 


H 


DB 


DB 


DB 


4f. 


4V 


49 


6798- 


6360- 


2D 


20 






2D 


2D 


2D 


20 


67A0- 


6368- 


20 




2D 


60 




89 


DB 


DB 


67A8- 


6370- 


DB 




08 




DB 


DB 


DB 


DB 


/,/liu 


637B- 


DB 


DB 


9B 


49 


47 


49 


49 


49 


6/111) 


63B0- 


47 


49 






49 


49 


49 


89 


67C0- 


6388- 


08 


DM 


DB 


DB 


H 


DB 


DB 


OB 


67C8- 


6390- 


DB 


DM 


DB 






49 


49 


49 


67DO- 


6398- 




49 


49 




49 


49 


49 


49 


67D8- 


63A0- 


49 


89 


DB 


Dfl 


Dl 


08 


DB 


DB 


67E0- 


63A8- 


DM 


DB 


l.tii 


[in 


DB 


DB 




49 


l,!\ 11 


63B0- 






49 




49 


49 


47 


4 9 


67F0- 


63B6- 


49 


49 


49 


89 


DB 


DB 


im 


DB 


67FQ- 


t.'r.n 


DB 


DB 


DB 


08 


OB 


DB 


DB 


DB 


6800- 


6 1CI1 


9B 


47 


49 


49 


49 


49 


47 


4 9 


6908- 


63D0- 


49 


49 


4 9 


49 


49 


89 


DIi 


08 


6910- 


6300- 


08 


DO 


OB 


mi 


DB 


08 


DB 


D8 


60 1 ft - 


63E0- 


DB 


DB 


9D 


00 


00 


DO 


92 


92 


MY.'d 


,,:\ ii 


92 


49 


49 


4'J 


49 


29 


6D 


4 7 


Ml/ll 


6 '.r 


<\-i 


49 


49 


17 


49 


47 


DA 


DB 


6030- 


63F0- 


DM 


DB 


DB 


DB 


DB 


DB 


3F 


FF 


68MI-- 


6400- 


DB 


im 


DB 




49 


49 


49 


09 


6040- 


6408- 


.■D 


6D 


4 9 


•9 


49 


4 9 


49 


49 


6848- 


6410- 


49 


DA 


Ull 


DB 


DB 


Mil 


DB 


MM 


6890 - 


6418- 


DB 


3F 


FF 


DB 


08 


08 


S3 


49 


6838- 


6420- 


49 


4 9 


20 


60 




49 


49 


49 


6860- 


6429- 


47 


49 


49 


89 


Mil 


MM 


08 


MM 


60611 


6430- 


01. 


DB 


on 


DM 


IB 


jr 


FF 


OD 


6970- 


6430- 


[HI 


S3 


49 


47 


29 


2D 


20 


20 





4 | 


4^ 


49 


49 


49 


89 


DP 


DP 


Dl 


DB 


SB 


SF 


3F 


IF 


IX 


DO 


53 


47 


2D 


4D 


tl 


09 


18 


49 


4 -S 


47 


B9 


ZC 


ZF 


IF 


Zf 


Zf 


3F 


ZF 


SF 


IF 


ZF 


--'■ 


SF 


3F 


.'- 


3F 


2D 


20 


2D 


20 


7D 


70 


2D 


2D 


2D 


28 


2D 


70 


6D 


DA 


IB 


ZF 


SF 


3^ 


3F 


3F 


3F 


SF 


IF 


3F 


3F 


SF 


FF 


33 


49 


70 


2D 


6D 


2D 


20 


20 


70 


20 


2D 


68 


4 7 


01 


; 1 


3F 


3F 


SF 


SF 


ZF 


SF 


3F 


3F 


3F 


IX 


DB 


4m 


2^ 


2D 


OD 


2D 


20 


72 


20 


2D 


68 


49 


49 


E17 


00 


72 


7 7 


57 


47 


49 


4D 


.-.9 


to 


«9 


4-J 


47 


B9 


DB 


■ I 


OS 


DB 


08 


DP 


IB 


ZF 


F F 


Di< 


DB 


49 


09 


70 


60 


4? 


49 




49 


.1-? 


49 


DA 


rp 


08 


DB 


DB 


01 


DB 


3F 


DB 


33 


47 


•iv 


27 


6tl 


3-1 


49 




4 9 


4 7 




Oil 


08 


DII 


Oil 


DB 


OP 


SB 


ZF 


DF 


DB 


53 


4V 


20 


(0 


4 7 


4'^ 


47 


49 


47 


47 


Dl 


r& 


DB 


D8 


DB 


08 


DH 


3F 


3F 


3F 


33 


49 


<19 


2D 


70 


oo 


4 


49 


4 9 


4 7 


49 


49 


OS 


D8 


DB 


DB 


DB 


DO 


DM 


3F 


3F 


OF 


OS 


2A 


20 


2D 


2D 


711 


60 


70 




20 


20 


2D 


70 


10 


DG 


3F" 


3F 


3F 


3F 


3F 


3F 


3F 


3F 


IF 


SF 


31 


3F 


3F 


in 


49 


20 


70 


70 


AO 


20 


20 


2D 


70 


70 


20 


2D 


4D 


Dl 


OH 


:■<■ 


3F 


_v 


3F 


SF 


SF 


31 


SF 


31 


3F 


3F 


DF 


09 


70 


2D 


20 


70 


00 


2D 


2D 


2D 


2D 


20 


40 


DB 


DB 


DB 


SB 


3F 


31 


3F 


FF 


3F 


3F 


SF 


II 


OO 


00 


OO 


7 7 


92 


37 


4D 


4 7 


49 


4 7 






47 


47 


119 


08 


DB 


DD 


08 


DB 


08 


08 


Dl 


IR 


r>3 


09 


.■n 


60 


49 


4V 


47 


47 


47 


47 


47 


4 9 


nn 


DB 


DB 


DB 


DB 


DB 


DB 


3F 


I F 


33 


09 


20 


4 7 


47 


47 


4 7 




47 


49 


DA 


DB 




DB 


im 


08 


DB 


DB 


DB 


31 


F 1 


2D 


2D 


4D 


49 


4 V 


47 


49 


47 




47 


Dl 


OS 


MM 


Oil 


DB 


08 


Dl 


nn 


FF 


DF 


40 


09 


20 


20 








4 7 


49 


47 


Dl 


DB 


nil 


DB 


DB 


DB 


MM 


DB 


3F 


3F 


or 


DB 


2D 


2D 


2D 


00 


20 


20 


20 


2D 


20 


20 


70 


70 


20 


1 '. 


38 


3F 


3F 


3F 


'.( 


M 


3F 


3F 


SF 


3F 


3F 


3F 


3F 


B) 


4 7 


20 


20 


OD 


20 


2D 


70 


2D 


2D 


2D 


2D 


2D 


6D 


M 


3F 


3F 


3F 


3F 


3F 


3F 


3F 


IF 


31 


3F 


3F 


-'1 


4 9 


.19 


2D 


2D 


2D 


60 


2D 


2D 


70 


20 


20 


hit 


DA 


DB 


DB 


ID 


M 


3F 


3F 


3F 


IF 


31- 


3F 


8 


9B 


00 


00 


oo 


49 


4 7 


2D 


.'11 


4D 


H7 


on 


\t 


3F 


3F 


:> 


DF 


53 


29 


2D 


2D 


2D 


2D 


2D 


AO 


IF 


a 


3F 


3F 


B 


Jl 


20 


2D 


2D 


20 


20 


70 


70 


Jl 


DF 


3F 


IF 


SF 


01 


8F 


69 


4 9 


40 


49 


09 


IE 


(li 


I I 


DB 


nn 


4A 


69 


09 


4(1 


47 


40 


FB 


FB 


DB 


F8 


i n 


7M 


4 


411 


69 


69 


89 


MM 


Ml 


1 Fl 


Dl 


08 


40 


47 


no 


00 


40 


49 


DA 


on 






08 


4A 


4 9 




49 


4 9 


DA 


08 


DB 


3F 


MM 


4A 


47 


49 


4 


69 


DB 


Oil 


FB 


IF 


OF 


08 


47 


09 


2D 


711 


4 


47 


MM 


3B 


FF 


on 


[Hi 


53 


09 


20 


40 


49 


89 


DB 






08 


08 


4A 


47 


411 






OS 


08 


3B 


Oil 


Fill 


02 


00 


oo 


00 


49 


47 


70 


'.1 


3F 


0* 


98 


47 


4 7 


49 


09 


2D 


3F 


r* 


MM 


Dl 


33 


47 


20 


2D 


DB 


Ml 


3F 


F ' 


4(1 


49 


47 


2D 


20 


8D 


3F 


DF 


Oil 


33 


47 




89 


DB 


IB 


OF 


OF 


DB 


4D 


411 


49 


DA 


OS 


IB 


VB 


47 




60 


4 9 


4 7 


DB 


IB 


DF 


53 


09 


20 


47 


DA 


DD 


n 


DF 


i n 


OD 


4D 


49 


89 


[in 


oi. 


38 


71 


47 


20 


40 


47 


DB 


DB 


3B 


1 1 


sa 


07 


4 7 


4 7 


DA 


08 


08 


F8 


6D 


6D 


47 


4 7 


on 


DB 


MM 


02 


OO 


OO 


OO 


20 


27 


6(1 


oo 


1)11 


20 


OS 


11 


IF 


IF 


DF 


i n 


IF 


40 


69 


OD 


OD 


OD 


60 


3F 


IF 


3F 


IF 


M 


Of 


47 




47 


47 


47 


M 


MM 


DB 


OB 


98 


49 


09 


69 


49 


117 


DD 


IB 


IF 


i a 


DF 


OA 


4D 


09 


OS 


09 


40 


DA 


08 


1 ' 


Mi 


FF 


33 


60 


67 


20 


M 


Dt 


FB 


no 


|| 


n 


M 


ril 


40 


4 9 


49 


47 


1.7 


DB 


Ml 


3F 


IF 


[1 


J' 


oo 


...<> 


oo 


FF 


oo 


oo 



421 




•19 otf»» ifmo-o-pwbr*-.,' 

U9 I'MO-MTICMtM 

939 PRINT'I 

•40 00t0»4l 

939 KlNI'l 

8C« DM*tI(MT»(Dl| 

e?a E£*-R10nT*<en 



Bistrot enfume. comptoir en cuivre, ballon de rouge: 
les des roulent sur la piste verte! 
Le jeu de des te plus populaire (en France!) (ait son 
apparition sur I'ecran de votre ordinateur, 

J GAITS 




l> >>■! 



m MTTMP.I 



JEU DU JOUEUR 1 



j.wm r/ii/n— 



M ::i- . M 800000 K39- 
« CI*-' 

70 PRJN 



tatt 

t3H 



fori-it&3 Dtn-mKRWKajwj.i wen ji-i co-i qix 

OOSUil0000 0090(38998 Ql-01.PT 

cx-4 0060*20000 

lfM^e-2W£«--JlM>«>C2-C0 00101200 

oosu*39999 oi-oi.w 

CO-CG-I lFPE*--JS'TVCMO06Ui9«aa 

ootoiom 

lFCO>-3THDC2-3 

CH-C04 Pl-PT Xl-XX Rl-R»t 

IFPE»-"JI*Tt4EMuOSu*3919 

■JfTUM 



JEU DU JOUEUR 2 



in a 

IM 

it» p«iHf-.-»r 

i29 MtiwT-r- 1 1 r 

1M PRINT'I . , , , , , | | , , , , . , r 

140 dXi-HUi 

130 F*INT'I I II || I I I I II II II 

i«a •*.'■ 

179 P9INTI — — » » f | | I— — . . __ r 

■ & -*:•■' i l— _^_^__^j- 

236 »>l«|MMNMMr 

233 PRINT" , s « 

2*0 PRUn" 1431 IB POIMTS1" 

243 PRINT- mi 7 POINTS) ' 

238 PRIhT- rxil X 

235 PRINT 1221 <• POINTS) - 

260 PRINT" iWCLi« 2 - 

279 PWJMI- ritB^SHE 2 POINTS'* 

299 PRINT* *. 

«• ^SiNi 4MMMMtMi VEUX-TU JOUEK CONTRE P 

309 QETAB IF*t-"TKN3« 

310 l«ut-«a»MMItM-C|£L Est s.jm pwEmOU 

315 iPLENOi*->m-€NJi»-LF.Fr*'ji*. ie,.-.- 

129 IP«<»'0-THZNJ2».-COni0OC«t- OOTO>40 

33* I^f 'RM008RJ0M08RR99BCELUI DC TON PP»TE»*IRE 

333 IFuEN(Ji«/^l^r-C^Ji».LE» i r*<Ji»,16>«".- 

340 PRINT--) 

339 *++-<lS-a*i J:t<"*-.- 

i*ii SflHtLE* :*'HI.W).JII 

379 k4*-W?-LEM02»y-^.i; 

389 P»IKTL£FT*(k*,hh,.j2» 

4*6 il-lNr(8ND(0-«J-ie S2-3S-S1 P£«--J1- 

499 COSUS799 

4» 



I F0RI-1IQ3 D(I)-INT<RMB<9J*6>*1 n=xT Jl-9 CO-1 02-8 
I 0O9UB 19888 0030138868 B2-02.fi 

! i^S952'^!i^ OT(C0<c:sw > ,i,t -^'Ji"^»«H2e38 
i ooastaeeee oor tJiiw 



2979 

an 

2099 



Z389 

2999 



ifn *~-v f9qezf}2- hoc i -co octq22K 

oosunoooa B2-q2.pt 

co-co-i iFp£»--ji-T«>oueui9e2e 



IFC0>-3THE>Cl-3 
C24-CQ* P2-RT X2-XX R2*(fl 
I FPM- ■ }2 ■ TNEHOOSUI901 9 
RETURN 



cotf-^ 



ooop£ 



64 



«iou!Li.»3es 



F0Jt'**TQ24S 

JS 1 •j*^! 

i ai^fl ... *j 



■ 

1 ■ ,,,Jr.: t^l 

» .*FJ2«-*COmO«*E-rMC« ( OiU»J08 i ) 

• . t . . 

■ :FPEt>--J2-Tt«iW J GS, J 3i W » 



603 

619 IF01.U2-8IHEH01*! 
626 IHl»-t2«THEN6e0 
638 IPFlyf-2l^i«>;?2 
P . I >*J*.r* 

«8 :??i\*i*in*Aa 

«2 JFtli--114-r>CN692 

S34 i30rw,j4 

669 IFR112Tt4IJ«£/0 

662 lFCt0>*lI3^mDMJ03 

6*4 I*CJi--5«rjiA.Mt£-rME«*>4 

.. 

(73 JOTOCM 

see inti>sa 

682 IF»l'>rf!r«ii€S4 

638 Pft[MT-anMB8*00a00aM H-MP.J r>| HECJVVSNCE. , 

6>2 ft*-- [i v.Tfj/ee 



3002 ? 

3883 

3619 F0OI-1T03 0(I>-lMT(RHD(aj«*lj I4EXTJ 

3829 ^lKr-W88808IWW0>»t»»>li 



H-ti CO-I B2-4 



3046 
3839 
3868 

3*^0 



■XT? 
3288 
3219 



008UK18888 008UB38888 &2-&i.Pr 

IF^r.rX3ft(lj«»--J2"*0«(CO<C2» i tCi^t»--;i -<I)4LHJ8/e 

r« ten 160 



' '>J>iJi!y39 00T0398 



S94 Pt*-"J!' 
699 



•91*01*03 ..■ 



. . ■ 

: "'.LMJ2» 
■ '',Li-JJf 



IFP£»--J|-T>OO308 
IFPT>lPHflLEFTI(COf,2,<:y-i|-If«MCl-ai 00TO3168 

IFL£*ri<C/J*,2j--irf»<[*'-<4TXMZ»-*3- OOTQ3608 
> IFL£FTfCCO»,2<-"M-T»«NCI-C0 OOTOS1«8 

I IFL£FTKCO*.2<--lI-T»CMZ«--3- 0OT03888 



J601 IW<2J-198E(2)*€(3) 

3682 S0O>-ltH«l>*eO) 

3619 POBI-lTta 

3621 lFTOUJ-120racl-*14aRI»<I)-24II«M4938 

3638 WXTI 

3708 JfPI>lT«N3779 
3718 F0BI-1T03 

3729 IFWM)-23(*BO(l)-340«l-3U^-43I»4iN4S38 

3730 I4WTI 
3/49 FOtI-lT09 

3736 lFIO'I-/il-JM1fC(jM;/ll/THP:>M»3B 

37/8 FORDD-IT04 !FDD-3T>eK38HI 

3788 F0RI-IT03 

3738 lFE'I,-CDf>C70829 

3499 t«/TI 

M18 tCXTDD «jrcTJ3«0 

3828 IFI-IT>CM2«--23- 

3830 IFI-2THENi»--13- 

3849 IFI-3TMD««--12- 

3830 OOTO3080 

3990 IFPt»--Jl-TPtNZ»--23" OOTO3089 

3918 Cl-CCi OOTO3160 

*VM rFI-lTWWI-3 0OT04WO 

49t9 IFI-3Ti«N[-2 OOTO4?B0 

4378 IFI-2TMEMI-1 

4'A& ^t-RIC»fT«(9TRI<I>.U 

4»» RET) — -— - — — - . ■ — 




i »c*#-itauit(7,f. 

t FO*K>tr03 

I tCXTH 

I U-««4*l/ 

i p«iNfixFTi.M»,c:>.-i 



9l«j 



CO-CO-l ir»ti--J| 

COTCTJ839 

I»tO>-3Tl€J<l-3 

C2K09 F-2-** la-W 0-4W 

irPif.-;j-Ti 

■1TURN 



-*" "P* «Em.T«T> iNTEWCBI'tinS 



.-**tf tfTl^llfJBCnt"! 



reef* Pou»-TB*o**c 



»»f io«* oes ses 



imii K*a 

18829 1FJ1-1T>CMa.-0 
10830 FMI-IT03 
18848 OOCl;0C«Jtl919e.:913< 
18039 «XT1 

■■w 

18899 

19100 
19140 
10149 
10130 

:,.■:•-' 



19139 
1 0280 



18249 

18398 

18379 



19310 

If M 
18349 

;.-.-- 
!..■ ■■.- 

163 79 

iiqm 

1*>9> 



Pt*£122i«a*U-l)-*.81 
FOKE1388«CC*(I-Ui*.61 
PtTURN 

WSU919IJM 
MAU119t39 
RETURN 

QOSU110138 
P0KE1226*a><!-l)-*.9l 

PXKEi3e-i*u-ii-i^»!..<»i 

REIl*N 



bO*U>I9188 

X a.;.'.-.' 

RETL8M 

,. WSlf39t 

P0ttl2tt*CC 

RETURit 




am 

28110 

30138 

201» 

..■:■■..' 

m«8 

Zt)M 

<»iw 

.-.^: 
29211 

M3I 

aaw 
anm 



. 

J-vK.(fit/ Cx*64J-2-49*<Jl*9) 
It'll'hl 

IFUN<Bt>^-. 

[I Jl--trjMNOWJRE-IMEI«lURH 

WT03WM 

H3KI-K0L LN.IIy 
J-VW.f«|[;«f»l.!.l/. 

D<J»*>INT(M9 

CX-4 

IFJl-flT«NCM-24 

0OWJtlB888- WFtCMMOC DEI 

•sru-w 



I F0RI-II03 tU>-BU* NEXT Pt-8 
Ml* I'l(W>£i2lt)«HD-€(2> «(3>- 
M28 IFC<I)>E<3inCND*C<]J Ellit'li l«l;' 
1839 IFE<2iX(3'THEND-t<3> t<3i-E'2. l(2l> 



*1-2I06 



309/8 IFKSl-ITMENfT-l f,0»*-ll-*fiJOMT»(',r«'t'l).l) WJT031888 

39899 >CXI1 

38910 1FEO)-IT«NCO*-'TRIPV6 Ni"-M*/ UUMjtloM 

38388 IFE<] j-l(2>f"IEt'i(-t' 3-lH(f*I-^ CO*--*RtLP#l" RO-KH 001031888 

38319 in<l>*lK<2}RNK(2>*l-t<3HHt.i" ■ i -. .■ 

39329 IFE<l>-lPHtt(2,.^nMLt(3S-2Tl*N(.0»«-t*Ntrifc- PT-4 001031860 

39338 »<-i9B*E<3^: M ICHTI M 

31888 RETURN ■ 



TIR AUX PIGEONS 



Leschasseurspourront.sanspitie.essayerd'abatlrf.k; 
plusde pigeons possible. Les amessensibfesaurontdu 
mal a supporter les "cui-cui" pathetiques des gracieux 
volatiles agonisants! 

Depiacement du tusil avec les touches du clavior, tjr 
avec la barre d'espacement. Le temps de jeu de 3 minu- 
tes a Torigine peut aller jusqu'a 6 minutes avec les 
bonus a 20 et 40 pigeons abattus. 
A vosouvre-boites! (pour les petits pole) 



Pierre-Marie BERNEZ 
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DIETETIQUE T RS so 



La sante c'est la vie ! L'alimentation c'est ta santd ! 

Desirervous determiner votre poids theorique en 

fonction de votre sexe, Elge, corpulence, activite? 

Desiriez-vous connaitre votre ration catorique quoti- 

dienne? 

Quelle est la valeur calorique du repas que vous vous 

preparez a devorer? 

Ne cherchez plus. Ne calculez plus... 

Voici un programme qui va se soumettre corps et ame 

a votre bien-etre alimentaire 

JEAN-MARIE FRATARD 



Composition du menu (c'est le cas de le dire 'i 

1 Calcul du poids theorique dun individu et du nombre de calories 
quotidiennes admissibles 

2 Valeur calorique d'un repas ou des repas d'une journee. 

3 Comparaison entre la valeur calorique theorique et la valeur 
absorbee (en %) 

4 Evaluation pratique des poids des aliments (contenu moyen 
d'une tasse, d'une cuillere. d'une assiette, etc.). 

Utilisation du programme: 

- Chaque aliment devant etre analyse est entre en loute lettre (sans 
(autes) au clavier. 

- L'ordinateur consulte son fichier, s'il admet ranment demande. 
vous en indiquez la quantite utilisee et l'ordinateur affiche sa valeur 
calorique. 



- Certains elements sont inclus sous un terme general (exempt* - 
-BCEUF* pour "STEAK") 

- Certains elements se presenlent sous ditlerentes formes et teur 
valeur calorique sen trouve modifies (exemple *FRAISE" - nature 
ou tarte ). 

COMMANDES 

FIN : Permet de determiner la liste des aliments mtroduits pour en 
dormer la valeur calorique totale. 

E Elimine le dernier element que vousavez entre (en cas derreur) 
Z : Permet de voir la liste des evaluations pratiques des poids (poste 
4 du menu) et de revenir au programme. 

BON APPffTIT! 
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6188 PRINT-ia0O PAIN*250 BEURRE-1 IDEH*OEUF-2 IDEM-VI ANDE-3* i PR1NT-38G PAIN*2« 

D BEURRE*JAM90N-4 IDEM'ORUYERE OU TMON-3 IDEH+RILLETTE OU SAUCtSSON-6" IC( 1 1-32 

B*iC<2) -31381 C<3> -54001 C (4) -4328 ■ CCS) -4S00 ■ C(6> -53281 OOTO81O0 

6182 PRINT-FRAtCME-1 HUILE -2' <C<1 > -12*01 C( 21-482 IOOTO8180 

6184 PRINT-ORDtNAIRE-1 PAJTRE-2* 1C< 1) -42781 CC2>-UB0iOOTO8tB0 

6186 PRINT" ARLES-1 OUTRE-2" >C( 1 1 -55»8iC(2)-4Bee>OOTO81B0 

6108 PRINT-FRAIS-1 CONSERVE-2 FUME-3" iC( I ) -75101 C( 2) -2000 iC(31-S*4i 00108100 

6110 PRINT-FRONA0E-1 VERMICELLE-2 LENTILLE-3 POIS-4 OIONON. TONATE. LEOUM 

E.POISSON-5 AUTRE-S-iC(l>-3SaaiC<2>-t238iC(3>-373aiC(4)-172aiC<3)-100eiC<6>-21 

00IOOTO8100 

SI 12 PRINT-BOEUF-1 LEOUMC-2 P0ULE-3"ICC 1 )-3&0iC(21-3e0iC(3)-SOOiOOTOeiB* 

6114 PR I NT "NATURE- 1 BEURRE-2" ■CU)-8*0>C<2}-2Sei iOOTDei80 

61 16 PRINT-NATURE-I OROE-2 RAISIN-3" iCt 1) -4*001 C<2> -3630) C(3) -31 MiOOTOfllM 

6118 PRINT-DESIGNATION PAR LA COMPOSITION. SVP. - iOOTO4*30 

612* PRINT"FRAIS-1 HUILE-2* iC(l >-2*08iC(2>-27S0tOOTOeiB0 

S122 PRINT -FRAI CHE- 1 BEURRE-2 SAUHONEE-3" iC( 1) -9*8 iC(2) -2381 iC<3) - 1 329 r OCUOa 1 B 

* 

6124 PRINT-OESIONATION PAR L' ESPECE. SVP. - IO0T04B38 

6125 PRINT-BASSECOTE.FOIE.RtS-1 TETE-2 AUTRE-3" iC( I > -l3*0iC<2) -2 1*0 iC( 3) -1630 
lOOTOfllM 

6128 PRINT" SEC- 1 DOUX-2' IC<1 ) -6e3lC<2)-833IOOTOG180 

7B00 PRINTS14. "EVALUATION PRATIOUE OES POIDS"iZ»-- ORAMHEB. -iX*-* MOYEN-iPRINT 

7B1B PRINT-- UNE CUILLERE A CAFE RASE 5"Z«iPRINT"- UNE CUILLERE A SOUPE RAS 

E . .. 1B"Z»1PRINT"- UN ORANO VERRE 180-1*1 PRINT"- UN VERRE ORDINAIRE 

108-Z* 

7813 PRINT"- UN VERRE A MADERE 6*Z«iPRINT M - UN VERRE A LIQUEUR 

3*1* 

7828 PRINT"- UN GRAND BO. 580"-»i PRINT"- UNE ASSIETTE CREUSE 

■ ,..230"Z«lPRINTiPRINT"- NAVET-X»- - 150 OR. - TOMATE'X»"NE - 100 OR. " iPRINT"- 
CAROTTE - 100 OR. - POMME DE TERA£-X»"NE - 90 DR. ■ 

7*30 PRINT'- OIOON-Xt.- - 90 OR. - ECMALOTE - IB OR. - AIL - 6 OR. "IOOTOB0 

M 

9880 PRINT IPRINT* POUR CONTINUEfi . TAPEZ ' ENTER' " I I 1NPUTR4I RETURN 

8100 PRINT-ETAT t - t i INPUTRi IFR( lORRl IB. S1B0 

8120 C-C(R)iC*-8Tfl»(C>iEt.-RI0HT-.<C». 1 HC-INT(C/ 101 iE-VALfE«) I RETURN 

9800 DOTQAflRICOTB911.AONEAU0912,AIDLEF[N0880. AIL0*68. ALEX ANDR08225. ALOSE8168. ANA 

NDES*913.ALCO0L»7*e.ANANAS*914.ANt-H0ISB*7B. AN0OUILLETTEn3IB. FVJOU 1 LLE0916. ANI8ETT 

E31 25. ART ICMAUT 2873. A8P£R0E80*23AUBERflINEB03B 

9*18 DOTAAVOCAT2423.AVO1NE0350.PACON4113. 8ANANE89! 7. BAR8883. BARBUEBWIS. BENEDICT I 

NE3125. BETTE*03*.8ETTERAVEe*43.8€URREB916.BIERE0050. nifiCOTTEBSrW, BI8CUIT*JOT. BLff 

B338.BLEU 0' AUVER0**E«328 

9*28 DAT0B0EUFB918.B0N80N2»43. BOUOIN0488. B0UILLABAI8E168e. BRETZEL8873. BRIEB33B. B 

RIOCHEB3&0. BROCHETB088. BRUONO H — 6 0. CAB I LLAUOOtKW. CACOHUETTE280e.CACAO0919. CAFETH 

88. CAILLE0I 75. CAKE03M 

9838 rjOTACOMEMBERTBSeB. CANAPE284B. CANARD0I50. CANT0L(Wf18. CO«flr-r;i.^t)13. i:nqDC0*30.CA 

RPEB888. C0RRELETB8ea, CAR0TTE8928. CABEINEB338. CASSISeCG*, CAB80NADE6a38. CAV10B8273 

■ CELERI8921 . CERISEB922. CE RVELAS05 1 2 . CERVELLE012*. CHAHPA0NE3I II 

9*40 DATACHAMPI0N0NBB4B.CHARCUTERIEB463.CHARTREUSE3125. CHATAIONE2BB6. CMERRY3123. 

CHEVOL8180.CltEvnEUlLnilB. Q( I C0REEB82B. CHOCOLAT0923. r>«U8974. CII.lOULETrE6801 . CI DRE 

B858. CLAM2888. CLOVI68E0*8S. CI TRON0033 

9838 DOTOCITROUILLE0035. C0CA~C0Ln386B. C0IN0887B. C00NAC387S. COLIN0B*0, COOUEM«*. C 

ONCOHBRE8016.CONOREV1 2*. COMF1 TUREB388, COULOMMIER1iB3B0. C0UR(lF.TTrB833. r:RTil)E8«*3.CII 

EnE8923.CREPE8230.CRE&SON*e22.CREVETTE81B8 

9060 DATACROSNE0073- CR0TDN2*B4. DATTEB38B. DINDEB290. DORADEBQ*. FCLAIR, 03*8. EMMENTH 

ALB4*0.ENDIVE*023. EPERLAN8a98.EPINARD8926. ESCAffOOTHfl73. FtiTilROEONBl 28. FAISANB1 IB. 

FARINCB338.FECULE832B. FEVE8332.F1GUE0927. FLACfra.ET8e7B 

9070 DATAFLOCON D' AVDINE0393. FOIE ORAS8808. FRAISE8978. FRAMBOIGE0929. FROMAOEB930. 

OALANTlNEB239.OELATlNE0368.OELEEa3i0. GLACE 1488. OAIJFRE04O0. OIN3130. OLUCOSE6060. ON 

OCCM 1 1 383. OORGONZOLA8360. GOU JON0097 . GRENADEB0B8 

9880 DATAORENOUILLE»886.ORIVEei2a.OraSEILLE8e6e.OfluyfREBf.B0.HADrX>CK1130.HARENO*9 

31 . HARIC0TB932. HOLLANDE0373. HOMARDeSS*. KJII.E0933. HUITRE291 0. JftMDON0934. KETCMUP6B 

23.LAIT0935.LAITUEB819.LAMPRO1E0228.LANOUE FUMEEB26B. LPPINB936. LARD0937 

9B98 DOTOLENTILLE834a.LIEvnE0138.LIMAND£0e8B.LIVOROr0300.MACARONI0330.MflCHE»032. 

MAD£LEINEB475.MArS?t0fl.MA!7FNA603B.MALAOA3173. MANDflfll Mt«0*4. MONH0TTftN3168. MAOUCR 

EAU0938.nAnoARINE87&3. nfJHMELADE683B. MART INI3123, MAR0ILLE8532 

9180 DATAMRRR0N8819.MAV0NNAISEGI01. MELONefl '8. MF RLnN00OB. M1ELB330. H0RUE8939. MOULC 

8896. MOUTPRDE6B10. MOUTDN0948. MUI.ET83IB. MURE 0830. MVRT1 LLEB033. NAVETB03r.. NEFLE0I80 

.N01SETTEB&3G.NOIKB232.NOI]' DE COC08G2B. NOI X Dli nRESlL204E). NOUILLEU23 

9110 OATAOEUFe941.niEB32fl.OlONON0-3(.2.tX.IVE080B,ORONnEai43.[1ROra34B,O8EILLEa*32.P 

AIN0944. PAMPLEMDUSEE0943. PANAIS0860. PAftKE&AN*4*3 . PASTEDUE1B7B. I'ATllTEBl 29. PATC094 

6.PATE9033B. PRT I5EERIEB33B. PECHEB947. PERCHEB89B. PERDRIXB17*. PEHBIL3001 

9120 OATAPOIS0949.PIOEON013B. PIC0N3ID9. PI SRENL1 T0022. PIBTOCHE28B3. PUDD1N01223. PO 

MME9949, POMME DE TERRE893B. FR1 TEB298. POIRE893I ■ POIREAUBB40. POI VRON0020. PONT-LEVE 

QUE93B0.F'OWC093?. POTIRON0B33. PORT03I73. PORT-BALUT0360 

9130 DATAPOULETB173.PRUNE0933. PRUNEAU09W. OliTlTRr-»l0Rr 1488, RAIF08B3. RADIS2002.RA 

ISIN09S3. RHUBARBEB022. RHUM3I 25. niLLF.TTEBft**. Rl Z nLnCE8J43. R0L1.M0P8B223, ROQUEFORT 

8360. ROUOET008B. RUIABOrjO0835. fiAINDOUXB763. r^lLOMIBBlB 

9140 DATASALSIFI0073.SANOUICH8956.SAUCES100. SANnLIERnil 3. CARD1NEB9S7. SAUCtSSCSta 

8,PAuc:iGS0NBiT3.r,mjMQN8')r.H.r,!:Mi:' ., .... jiropb77B. souPE096l.POTAOEnci 

. 8OU1LLONB962.S0LEB063. ^JCREa9f,4, TANCME8080. TAPI0CA0359 

9130 DATATARTE8963. THE000B. T1SANE0000. r*)NVJ66. TOMnTEB022. T0PlNOnBOURB87B. TRUFTI 
8013. TRUITE09G7.TUR8OTI4B, POtSSONBWa, VEAU8969. VIN8970. VINAIORE0880. UHISKV3123. Y 
A0URTH886B. 1 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AUTARIFPREFERENTIELDE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 416 FRANCS 

NOM: MATERIEL UTILISE: 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES: 

REGLEMENT JOINT: CHEQUE CCP 



OTHELLO 



Ce jeu bien connu consiste. sur (a surface dune grille 
de 8 x 8 cases, a capturer le plus possible de pions 
adverses en alignant 2 de vos pions de part et d'autre 
dune ligne de pions de ladversatre (Pour plus de 
precisions, reportez-vous a la page 3 du numero 1 
d'HEBDOGIClEL ) 



LET St-8 
: LET SO-9 
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12* 


RPINT RT 20,9. ' COOROONNEES'' 



123 LET R-0 

12a print rt 2S. 17. -ve«T-- 

128 PRINT RT 20 . 14., B* 

13* INPUT R 

131 IF R-0 TMtN GOTO 2SB8 

132 PRINT RT S«.17,*'HOni.-' 
134. INPUT S 

133 PRINT RT 20,9." 



1*0 LET 

142 LI 

1*8 SOTO ' -.sac 

158 REM RCCM 

169 REM 

290 LET C»R 

29* LET 3*0 



MEN (SOTO <Oi *199 
DCS X ENGERCLECS 



223 IF R»IC.Ei»C« THEN L 

230 IP R«fC.E)=B« THEM O 

2*8 GOTO 219 

2*3 IF 3-9 Then GOTO 100< 

S6B LET R» IC.E.S) -Bf 

263 PRINT RT <E*3> •2.C-2 



279 LET 5-5-1 

273 IF 3.9 THEN GOTO 239 

269 GOTO 1*2 

390 LET C«h 

39* LET 3a9 

393 LET E«B 

319 LET E-E-l 

2U LET C-C*l 

313 IF E-8 THEN GOTO 1999 

313 IF C-« THEN GOTO 1999 

t 329^if fl»ic,ei.CMR« tae then i 



199B 

338 IF fltCC,ei-C« TMEM LET 5-3* 

339 IF R»'C.CJ«B» TMEM GOTO 3*3 

349 GOTO 319 

3*3 IF 3-9 THEN GOTO 1999 

350 LET R9 i ■-■■-. P .'.■.:■'. . 
363 PRINT 



I (2, (C-5I 



(C-3.E4L. 
379 LET 3-3-1 
373 IF S>8 THEN GOTO 339 
339 GOTO 1*2 
499 LET C-fl 



416 IF C-9 TMEM GOTO 1999 

429 IF R«(C.E!-CHR« 126 TMEM GO 
TO 1999 

483 IF Rt<C,E)-C9 TMEM LET ".-5* 



473 IF 3> 



RT E»2, C 
3-1 



513 IF E"5 THEN GOTO 1999 

516 IF C--i THEM GOTO 1909 

•528 IF R8!C,E1-CMR« 128 THEN OO 
TO 1990 

325 IF R*1C,E>-C« THEN LET S»S* 

539 IF fi«i , ';,Ei=Bl TMEM GOTO S4S 

3*9 GOTO SIB 

543 XF 3-9 TMEM GOTO 1999 

569 LET R* IC-S,E-St -89 

■* -t-si *a, ic-3) «2;r« 



<C-3,E-3> 



TMEN GOTO 569 



60* LET S=9 



"Q 1999 



623 IF 

639 IF mi 

6*9 GOTO 619 

6*3 IF 3>9 TMEM GOTO 1999 

669 LET RtlC.e-5J.Bt 

663 PRIMT RT 'E-31 *2,Co2.Rt IC .e 

670 LET 3-3-1 

673 IF 3>0 THf 

669 GOTO 1*2 

TO0 LET C-R 

795 LET E-9 

710 LET E>C*1 
7ium-e~r C-C-l 

715 IF E-9 THEN GOTO 1999 

716 IF C-0 TMEN GOTO 1O09 

729 IF R9'C,EI-CHR« 12B TMEN GO 
TO 1999 

723 IF RKCEl.Cl TMEM LET 3-9* 

739 IF R*'C,£>>B9 TMEM GOTO 7*3 

749 GOTO 719 

■ IF S«9 TMEN GOTO 1999 
- *t-B» 



769 LET R« (C*S,E 



680 IF B«i:,E)iCMR» ue ■ 
'O 1990 

383 IF dUCEi'CI TMEN LET 3-3* 

330 IF RSIC.E1-BS THEN GOTO 345 

S«B GOTO 811 

a*s if s-o tmen goto ieeo 

360 LETT Rt<C*5.E>aB* 

863 PRINT RT E.2 , (C*5I *8. R* IC*S 

879 LET 5-3- 

873 IF St" - 

889 GOTO 

999 LET C 

99* LET 5- 

9BS LET E-u 

319 LET E-E-l 

911 LET C-C-l 

915 IF E-0 THEN OOTO 1009 

916 IF C*9 THEN GOTO 1800 

980 IF RSICE1-CHR9 126 TMEN GO 
TO 1099 

92B IF R*iC,El-C« THEM LET 3-3* 
1 

930 IF R«CC,E)-B« TMEN OOTO 0*5 

9*0 GOTO 919 

9*5 IF 5-9 TMEN GOTO 190O 

960 LETT RS <C*5.E*S) -&• 

955 PRINT RT it *S) «2, (C ♦»> 48; P.* 
(C*5,E*3) 

970 LET 5-5-1 

975 IF 5>0 THEN GOTO 960 

9O0 GOTO 1*2 

1990 LET R-R*l 

1910 IF R>«8 TMEN GOTO 1030 

1920 GOTO 148 

1939 PRINT RT 20,9; "ERREUR RECOM 
ENCEZ.. 

1040 PRUSE 59 

1950 LET RI(R,B)-CMRC 1SS 

1869 PRINT RT 8*2, R»2. f*% !R,B> 

1870 GOTO 18* 

1390 REH CRLCUL DES POINT3 

1502 LET Sx.e 

1503 LET 58 -0 
1307 LET 3O-0 
1510 LET J»l 
1S20 FOR 1=1 TO B 

1530 IF RS<I,J)*CHR« 126 THEM LE 

r SB-SB*1 

13*0 ir Rtd.JJ.CHRt 58 TMEM LETT 

30i30*l 

1530 IF HtH.JoCHRt 61 TMEN LET 

SX.SKtl 

1369 MEXT I 

1379 LET J-J.l 

1889 IF J<-8 THEM OOTO IBS* 

1399 PRINT RT O, 22, 'SCOPE O" 



16*9 PRINT RT 19,22, SCORE * 

1610 PRINT RT 2,26,-.. 

1529 COIMT RT 12.23. 5-. 

163* IF SB.» TMEM OOTO 31M 

133* IF 3*-* tmem GOTO 21** 

1636 IF SO-i then GOTO 2199 



91* IF F.Ji THEN LET F-i 



292* IF F-9 THEM LET BKCrMI S8 

293* IF F.9 THEN LET Ct-CHR* 61 

- "MEN LET CIt'.hB| 52 

MEM LET Bt-CMOf 61 



29*0 IF F 
2959 IF F 

■ mi Sort '_■ 



21*0 IF INI 
'□■* THEN Oi 
5159 IF INI _. . 
2169 IF INKEYf- 

£179 CL3 

a:a* goto . 

jsoa let u-u 



30 TMEM PRINT RT 1.33 
SO TMEM PRIMT RT 11, a 
-SO TMEM PRjJMTJiT^l.aa 
'RT Sa'.B, J|UOULEZ VOUS 
RMO XNKEV9< > 



THEM OOTO 217 



ENTRE 

3939 PRIMT 

.C4C PRIMT 

3850 PRIMT 

3S68 PRINT 

3878 PRINT 

13989 PRIMT 

3098 PSINT 

3109 PRINT 

3128 POINT 

3 138 POINT 



WOWS RVE1 LE 0901X 



OOUCURS IX -O 



^W^^Tr - S5!?EV • - " " THEN GOTO 31*0 
3138 IF INKEYtJ-"!" TMEN OOTO 49* 

V9»-3" TMEN OOTO ' 
«-ES F" 









_ I REGLE: 

4810 CLS 

*9g9 PRT.NT 

*o*e ==t»- 

4039 PRINT " REGLE5 OU OEU ""O 

TMELLO 

4869 PRINT - 

T£1 5 ' F' K I ! rr 

4999 PRINT "LE OEU CON6I6TE R CK 

TOURER SON" 

4 100 PRINT 

4110 PRINT -ROWERSRIRE POUR HRRO 

UER LE PLUS' 1 

4 120 PRIMT 

4139 PRINT "OE POINTS POSSIBLE." 

1-1*9 PRINT 

4 139 PRINT " ■ POUR RRS3ER 3 

ON TOUR . " 

4 169 PRINT 

4170 PRINT "31 LES 2 JOUEUPi R«3 

SENT 



4 189 
4 198 
OUR 
4200 
4210 


PRINT 
PRINT 

PRINT 
PRINT 


;;rpre3 l rutre leur t 
"lr prrtie est finie. 


4280 

'■ >■ :: 5 
4226 
4 830 


PRINT 
PRINT 
PRINT 


"RRPUVEZ SUR ■" 




42*2 

o 

4259 
4880 


IF INK 

ir ink 


cvt 


"• 


THEN GOTO 
TMEN OOTO 


*a«9 

42tv 


CLS 

OOTO 7 
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CHOISISSEZ LE PROGRAMME 




BON DE COMMANDE 
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a Je cotnmande les logldeb ou prodults survants 

□ Je desire seutement une documentation sans enoaqement de ma part 
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POKER 



Misez vos derniers sous sur la pake que vous venez de 
tirer et si vous perdez, ne revendez pas votre ordina- 
teur pour vous refaire, cela deviendrait difficile de 
continuer a jouer. 

Eric VERMELLE 

rei le }eu avec "O' Vous pouvez ensuile gamier lout ou partie 

des carles tiroes par lordinateur avec les touches i a 5 suivi de 

! ftateur garde alors les cartes non 

t>nn6es et calcule vos gains. Vous pouvez changer vatre 
cho>x avec la louche E avant de taper sur la barre d'espacement 




IOO PTS-I3 




110 CA1.L CLEAR 




120 CALL SCREENU3 




130 FOR T-2 TO 8 




140 CALL COLOR <T, 1 


I) 


150 NEXT T 




133 IF RT-l THEN 4 





160 PRINT TA8(13)I 


POKER 


.7-;-FLUSM 












1BO FOR T-2 TO 8 




190 CALL COL0R(T,2 


1) 


200 next r 




210 FOR T-ll TO 16 




220 READ V,N 




230 CALL CQLCRtT.V 


N) 


2*0 NEXT T 




230 FOR T-l TO 24 




260 READ v,E« 





•1"| "2 PAIRES *: 

"OUINTE ROVALE +30"! 



i-'BRELAN 

"PERDU .. 



TV 



-99/ 4 * 



270 CALL CMAR(Y,E»> 

500 NEXT T 

310 DATA 3.3,9, 13,6. 13. 10. 13.2. 10,3. 13. 120, AAS5AA55AA55AA55. 12 1 , 006CFEFE7C381 . 12 

2. 10387CFEFE7C381 

320 DATA 123,, 128, 0000000001070301 , 1 29, OOOOO049FFFFFFFF , 130. OOOOOOOOCOEOCOS, 59,0 

303O3O7O70FOF03 

130 DATA 60.COE0E0F0F0FOF0E0, 144, 81006600189990&C, 136.7E3D0C, 132,000000050305070 

7, 153.QO00OOB6B6B6FFFF 

340 DATA I34.O0O0O0C0C0C0C0C, 143, 8100660 199FFFFC3, 61 , FF7F3E3C391 ,64, 10387CFE7C10 

1038, 146,8100660019190030 

3SO DATA 137,FF6B3C18,87, 10391 054FE541039, 58, 2669A92929292926, 112, 193C7EE7E77E3C 

1 8 . 90, . B8, OOOOO03CO03C 

360 A•-■■ZZ0ZF•0UR2C0M.M£NCERZZZ , ' 

370 8*-"IZ2ZETCZ5ZPUISZESPACE" 

380 C»--TAPERZ- 

390 D«- , 'ZPOURZTOUTEZERREURZTAP£RZE7.~ 

4O0 E«-"TDTALX15" 

410 FOR T-2 TO 8 

420 CALL COLOR(T,2,13) 

430 NEXT T 

440 CALL CLEAR 

441 PRINT TAB! 13) ! "ZZZZZZZ" I TAB! 13) 1' ZPOKERZ"! TAB< 13) I "ZZZZZZZ"! ItlllMIMItlill 



430 FOR T-l TO LEN(D*> 






460 CALL HCHAR(24,T*1,ASC(SEG«(D«.T. 


)) ) 




470 NEXT T 






4BO FDR T-23 TO 30 


1310 


F-I 


490 CALL HCHARI2,T.ASC(SEG*(E«,T-22, 


> > j 1 320 


W-3 


300 NEXT T 


1330 


GOSUB 1530 


5tO CALL SCREEN(14I 


1340 


IF OOOl THEN 1360 ELSE 1380 


320 FDR T-I TO 6 


1330 


F«2 


330 CALL HCKAR(22.T*I,A5C!SEG»(C«,T, 


>)) 1360 


W-9 


540 NEXT T 


1370 


GOSUB 1530 


3SO B-- 3 


1380 


IF RROl THEN 1400 ELSE 1420 


560 CALL HCHAR(I9. 1.32,32) 


1390 


F-3 


370 FOR A-l TD 3 


1400 


VV-13 


5BO B-B*6 


1410 


GOSUB 1530 


390 FOR C-l TO 5 


1420 


IF SSOl THEN 1440 ELSE 1460 


600 CALL yCHARI9,C*B. 120.9) 


1430 


F-4 


610 NEXT C 


1440 


W-21 


620 NEXT A 


14SO 


GOSUB 1530 


63© IF FR-l THEN 760 


1460 


IF TTOl THEN 1480 ELSE 1500 


640 FOR T-l TO LEN!A«> 


1470 


F-3 


630 CALL HCHARI22, T*7. ASC <SEG» (A», T , 


) | ) 1480 


VV-27 


660 NEXT T 


1490 


G05U8 1330 


670 CALL KEY(O.D.E) 


1300 


ZZ-1 


690 IF E-0 THEN 670 


1310 


AO-1 


690 IF D-79 THEN 700 ELSE 670 


1320 


GOTO 3780 


700 RANDOMIZE 


1330 


E-W 


710 IF FR-1 THEN 760 


1340 


WW!F)-INT!3»RND)*I 


720 FR-1 


1330 


ON WW(F)GOSUB 1570,2610.2750,2890, 


730 FOR T-l TO LEN(B») 


1360 


RETURN 


740 CALL HCHARI22. r*7,ASC(SEG«(B».T, 


> ) > 1370 


H-INT(10*RND>*1 


750 NEXT T 


1380 


AZ-H 


760 FOR AB-1 TO 5 


1390 


L-I21 


770 J(AB)-0 


1600 


FOR 1-1 TO 3 


790 P(AB)-0 


1610 


IF J(I)-H THEN 1370 


790 5<AB>>0 


1620 


NEXT I 


BOO W(AB>-0 — M 


^ 1630 


FOR K-l TO 3 


810 BB'ABl-0 — t^^WU 


^ 1640 


CALL VCHAR(9,£*K, 123,9) 


B2o ^m^ WL ^^^ftm 


_ 1650 


NEXT K 


830 IIIABI-O ^ W ■%^j|l 


^F 1&60 


CALL HCHAR(9,E*1,H*49> 


840 LLIABJ-0 ^^J «^%^^ 


1670 


CALL HCHAR<9,E*3,H+4ei 


830 NEXT A8 W^^ 


1680 


CALL HCHAR(17,E*1.H*48> 


B60 RT-0 


1690 


CALL HCHAR(t7,E*3,H*48> 


970 E-3 


1700 


ON H GOTO 1710,1770,1840.1920,2070 


880 FOR F-l TO 3 




2160,2260,2340,2410,2520 


890 G<F)-INT!5<»flND)»l 


1710 


CALL HCHAR( 13,E*3,L) 


900 ON G(F)G03UB 1570,2610,2730,2990 


3030 »720 


J(F)-H 


910 £-£** 


^^ 1730 


P(F)-M 


920 NEXT F ^jk « 


^^ 1740 


S<F>-0 


^*. ft ftk H ill 


L.-I 1750 


W(F)-U 


940 00-0 OllillWl 


il-i760 


RETURN 


RR-0 ^^ 1 1 lfl ■ "^ 


W^ m 1770 


CALL HCHAR(10,E*3,L) 


960 SS-O ^^ 1 ■ W ■ " 


1780 


CALL HCHAR(16,E*3,L) 


970 TT-0 


1790 


J(F)-H 


980 CALL HCHARU9. 1,32.32) 


1800 


P(F)-H 


990 CALL K£Y(O.NN.QO> 


1810 


StF>-0 



1000 IF OO-O THEN 990 

1010 IF PP-1 THEN 1030 

1020 IF NN-49 THEN 1130 

1030 IF 00-1 rHErj 1050 

1040 IF NN-30 THEN 1180 

1030 IF RR-1 THEN 1070 

1060 IF NN-51 THEN 1210 

1070 IF SS-I THEN 1090 

1090 IF NN-32 THEN 1240 

1090 IF TT-t THEN 1110 

1100 IF NN-53 THEN 1270 

1110 IF NN-32 THEN 1300 

1120 IF NN-69 THEN 930 ELSE 990 

1130 CALL HCHAR( 19.T, H21 

I 140 GOTO 990 

1150 PP-1 

1160 T-6 

1 170 GOTO 1130 

1180 00-1 

I 1 90 T- 1 2 

rro 1 1 30 

12IO RR-1 
1220 T-1B 
1230 GOTO 1130 
1240 SS-1 
12SO T-24 
1260 G0 T 1 130 
1270 TT-1 
I2B0 T-30 

ro itso 

i 100 If rr : 



320 ELSC I340 



1890 
1900 
1910 
19Z0 
1930 
1940 



1980 
1990 

2000 

. no 

2020 
2030 
2040 
2030 
2060 
2070 
2090 
2090 
21O0 
2)10 
2120 



RETURN 

CALL HCHAR(10,E*3,L> 

CALL HCHARI IT.E'T.L) 

CAM HCHAft(16,B*3,L) 

J<F)-H 

P<F)-M 

3(F) -O 

W < F ) -U 

RETURN 

CALL HCHAR' 10, i t-2, 1 i 

CALL HCHARI 10. E*4.L> 

CALL HCHARI [6,1 -2,1 I 

CM 1. Hr.HOCI 16,E*4.L1 
IF AZ-IO THEN 2080 
IF AZ-5 rm N 
IF AZ-6 THEN 2170 
IF AZ-7 THEN 2170 
IF AZ-9 THEN 2170 
IF AZ-9 THEN 2O0O 

J(F)-H 

P<F)-M 

3(F) -Q 

W(F)-U 

RfiTLWN 

GOTO 1920 

CALL HCHAfl M 

IF AZ-9 THEN 2420 

IF AZ-IO THEN 2420 
J (I- I -H 

p ( f ) -n 




2130 


SCFI-Q 




2140 


W<F1 -U 




2130 


■ 




2160 


GOTO 1920 




21 70 


■ . : -T.LI 




2180 


CALL MCHARI 13.E-4.L) 




2190 


IF AZ-7 THE* 




2200 


!F A?-B THEN 2270 




2210 


J (Fl-H 




2220 


P(F)-M 




2230 


SIF1-0 




2240 


W(FI-U 




2250 


RETURN 




2260 


GOTO llh'j 




2270 


CALL HCHARU1,E*3,LI 




22B0 


IF AZ-9 THEN 2350 




2290 


J ( F > -H 




2300 


PIFJ-M 




2310 


SCF1-0 




2320 


MIF1-U 




2330 


RETURN 




2340 


GOTO 2260 




2330 


CALL HCHAR(13,E*3,L) 
JCF)-H 




2360 




2370 


P(F)-f1 




2380 


S(Fl-0 




2390 


M(F)*U 

RETURN 




24 lO 


GOTO 2070 




2420 


CALL HCHAR(12,E*2,L) 




2430 


CALL HCHAR<l2,£-t-4,L) 




2440 


CALL HCHAR(l4.E*2,Ll 




2430 


CALL HCHAR<l4,E*4,Ll 




2460 


IF AZ-IO THEN 2530 




2470 


J(F)«H 




2480 


P(F)-M 




2490 


S(F)-0 




2SO0 


M ( F ) -U 




2510 


RETURN 




2S20 


GOTO 24 1 




2530 


CALL HCHAR(ll,E*3,Ll 




2540 


CALL HCHAR(I3,E*3, 123) 




2530 


CALL HCHAR(I3,E*3,LI 




2560 


J(F)-H 




2570 


P<F).-M 




2580 


S(F)-0 




2590 


W(F)»U 




2600 


RETURN 




2610 


«-INT(lO»RND)*l 




2620 


AZ-M 




2630 


L-I22 




2640 


FOR O-I TO 3 




2650 


IF P(0)-H THEN 2610 




2660 


NEXT > 




2670 


FOR N-l TO 3 ( 




2680 


CALL VCHAR(9.E»N, 123,9) Q 




2690 


NEXT N 




2700 


CALL HCHAR<9,E*1.M*48) < 




2710 


CALL HCHAR(?,E«5, 11*48) 




2720 


CALL HCHAR(17,E*1.M»4B) 




2730 


CALL HCHARf 17,E»5,M+48) 




2740 


ON M GOTO 1710.1770, 1840. 








2320 


2730 


Q-INT<10»RND)*1 




2760 


AZ-0 




2770 


L-64 




2780 


FOR R-l TO 5 




2790 


IF S(R>-0 THEN 2750 




2BOO 


NEXT R 




2910 


FOR T-l TO 5 




2820 


CALL VCHAR{9,E*T, 123,7) 




2930 


NEXT T 




2840 


CALL HCHAR<9,E»1,Q*48) 




2830 


CALL HCHAR(9,E*5,0*4B) 




2960 


CALL HCHAR(17,E*I,0*4B) 




2870 


CALL HCHAR<17,E*5,0*4B) 




2890 


ON GOTO 1710, 1770, 1B40. 






1920,2070.2160,2260,2340,2410 


2320 


2B90 


U-INT(10«RND)*1 




2900 


AZ-U 




2910 


L-87 




2920 


FDR V-t TO 3 




2930 


IF W(V)-U THEN 2890 




2940 


NEXT V 




2930 


FOR X-l TO 3 




2960 


CALL VCHAR(9,E*X, 123,9) 




2970 


NEXT X 




2980 


CALL HCMAR(9,E*t,U*4B) 




2990 


CALL HCHAR(9,E*5,U*4B) 




3OO0 


CALL HCHAR(17,E*1,U*48) 




3010 


CALL HCHAR(17.E*3,U*49) 




3020 


ON U GOTO 1710,1770,1840, 






1920,2070,2160,2260,2340,2410 


2320 


3030 


FOR V-l TO 3 




3040 


CALL VCHAR<9,£*Y. 123,9) 




3030 


NEXT Y 




3060 


Z-INT(4«RND)*1 




3070 


ON Z GOTO 3080,3370,3640,3710 




3080 


CC-INT(3«RND)+1 




3090 


FOR AA-1 TD 4 




3100 


IF BB<AA)-CC THEN 3060 




3110 


NEXT AA 




3120 


CALL HCHAR(9,E*3, 121) 




3130 


CALL HCHAR(17,E*1, 121) 




3140 


ON CC GOTO 3150,3290,3430 




3130 


CALL HCHAR(9,E*1,86) 




3160 


CALL HCHAR(17,E*3,B6) 




3170 


CALL HCHARI 12,E»2, 129) 




3180 


CALL HCHARU2.E+3, 129) 




3190 


CALL HCHAR(12,E*4, 130) 




3200 


CALL HCHAR<13,E+2,39) 




32lO 


CALL HCHAR<13,E*3. 144) 




3220 


CALL HCHAR(13,E*4,60) 




32 30 


CALL HCHAR(14,E+3, 136) 




3240 


BB<F)-CC 




3230 


FF<F)-DD 




3260 


II <F)-GG 




3270 


LL IF) -J J 




3280 


RE TURN 




3290 


CALL HCHAR(9,E*l,B2) 




3300 


CALL HCHAR(17,E*3,B2) 




3310 


CALL HCHAR(12,E»2, 132) 




3320 


CALL HCHAR(12,E*3, 133) 




3330 


CALL HCHARI 12, E*4. 134) 




3340 


CALL HCHAR(13,E*2,39) 




3330 


CALL HCHARI 13, E*3, 143) 




3360 


CALL HCHARU3,E«4,60) 




3370 


CALL HCHAR(14,E*3,61) 




33B0 


BB(F)-CC 




3390 


FFIF)-DD 




3400 


II(F)-GG 




3410 


LLIF)-JJ 




3470 


RETURN 




3430 


CALL HCHAR<9.E*1,68) 




3440 


CALL HCHARI 17, E*5, 69) 




3430 


CALL HCHAR(12,E*2,132> 




3460 


CALL HCHARI 12, E+3, 153) 




3470 


CALL HCHARI 12, E* 4, 154) 




34BO 


CALL HCHAR<13,E*2.W) 




3490 


CALL HCHARI 13, E*3, 146) 




3500 


call HCHARI 13,6*4,60) 




35 IO 


CALL HCHAR(14,E*3, 137) 




3320 


»B<| |-D 




3530 


r-F(D-DD 




[S40 


I t (FI-GQ 




-■.-... 


LL«F)-JJ 




■■.'.'. 


R| tni-n 




■./.. 


DD-IMT (3*RND) »1 




Sft 


CALL HCMAR(9.E*5, 122) 




3390 


CALL HCHARI 17, E*l. 122) 




3600 


FOR EE-1 TO 4 





. IP ft (GEI "DO TMF :i 

i NEXT EE 

< ON DD GOTO 3150.3290,3430 

i BG-INT(3*RND) M 



J4SO CALL HCMAR(9,E*S.64, 

3660 CALL HCHAR ( I7,E*I ,64> 

3670 FOR MH-l 

36BO IF 1IO4O-60 THEM 3040 

3690 NEXT HM 

370O ON BB GOTO 313O.3290.3430 

3710 JJ«INTl3*RNDi-l 

3720 CALL HCMAR*^. 

3730 CALL HCMAR(I7.E*l.e7) 

3740 FOR *»l TO 4 

3730 IF LL(*>.J-JJ THEN 30A0 

3760 NE'' • ■ 

3770 ON JJ GOTO 3130,3290,3430 

37BO B-- 2 

3790 FOR T-l TO 3 

380O 8*8*6 

3810 CALL GCHAft(9.B. ILIT)> 

3B20 IF (ILtT)>3l)*(tLIT)<3aiTMEN 39*0 

3830 IF (IL(T) >67I*(IL(T><87>TMEN 3890 

3840 IF ILCTI-49 THEN 390O 

38SO IF (ILIT)-30)-(ILIT)-Sl > TMfN 3*2© 

3860 CALL GCHAR(10.8*1.A5IT) ) 

3870 GOTO 3930 

3890 CALL OCHAR (9.8*4, AStTI > 

3890 GOTO 3930 

3900 CALL GCHAR(I3,B*2.AS<T>) 

3910 GOTO 3930 

3920 CALL GCHAfi ( 10, 8*2. AS(T> ) 

3930 IF IL(T)<>86 THEN 3930 

3940 IL(T)»39 

3930 IF IL(T)<>68 THEN 3970 

3960 IL(T)-60 

3970 IF IL(T)<>82 THEN 3990 

3990 ILIT1-61 

3990 IF IL(T)<>49 THEN 4010 

4000 IHT1-62 

4010 NEXT T 

4030 H-3 

4040 F-O 

4030 FOR T-2 TO H 

4060 IF IL(T-1K-IL<T>THEN 4110 

4070 X-ILIT-U 

4080 IL(T-1)-IL<T) 

4090 IL(T)-X 

4 IOO F-l 

41 10 NEXT T 

4120 IF rt-2 THEN 4130 

4130 IF FOl THEN 4130 

4140 GOTO 4030 

4130 FOR T-l TO 4 

4160 IF AS(T)OASIT*l)THEN 4190 

4 170 NEXT T 

4180 CO-1 

4190 FOR T-l TO 4 

42O0 IF IL(T).1<>IL(T*1)THEN 4240 

4210 NEXT T 

4220 IF CO-l THEN 3130 

4230 CD- 2 

4240 FOR T-l TO 4 

4230 IF 1L(TX>IL(T*1)THEN 4320 

4260 A I -2 

4270 R-T*2 

4280 IF IHT»1X>1L(T*2>THEN 4330 

4290 A 1-3 

4300 R-T*3 

4310 IF IL(T*2)-IL(T*3)THEN 3020 ELSE 4330 

4320 NEXT T 

4330 IF (R>4)»lT>3)THEN 4400 

4340 FOR TT-R TO 3 

4350 IF IL<TTK>IL(TT*1)THEN 4390 

4360 A2-2 

4370 IF IL(TT*l)OIL(TT.2)THEN 4400 

43B0 A2-3 

4390 NEXT TT 

4400 IF <A1-2)*(A2-3)THEN 4930 

4410 IF (Al-3)*IA2-2) THEN 4930 

4420 IF CO-1 THEN 4930 

4430 IF CO-2 THEN 4760 

4440 IF Al-3 THEN 4630 

4430 IF LA1-2)»<A2-2)THEN 4350 

4460 IF Al-2 THEN.4480 

4470 BOTO 5230 

4480 St-'PAIREZ*!" 

4490 CALL SOUND 1230. 494.2) 

4300 CALL S0UNDI250.397.2) 

4510 CALL SOUN0I25O.932.7I 

4320 CALL SDUND<300,9B9,Z) 

4330 PTS-PTS*! 

4340 GOTO 32BO 

4330 S»--2ZPAIRESZ*3 H 

4560 CALL SOUND (200, 699, 2) 

4370 CALL S0UNDI200, 8B0, 2) 

4380 CALL S0UND(200.7B4,2) 

4390 CALL SOUND (200, 5B7. 21 

4600 CALL S0UND(20O,523,2) 

46lO PTS-PTS*3 

4620 GOTO 3280 

4630 S.-"8RELANZ*7" 

4640 CALL SOUND ( 100.880,2) 

4650 CALL SOUND! IOO. 880, 2) 

4660 CALL SOUND ( 100. 988,2) 

4670 CALL SOUND( 100. 988, 2) 

4690 CALL SOUND ( IOO, 1047,2) 

4690 CALL BQUND( 100, 1047, 21 

4700 CALL S0UND(100.989,2) 

47IO CALL B0UNDI100.9BB.2) 

4720 CALL SOUND! IOO, B90, 2) 

4730 CALL 90UNDU00,0B0,2) 

4740 PTS-PT9*7 

4730 GOTO 5280 

4760 S»-"SEDUENCEZ*10" 

4770 CALL SOUND (500, 639. 21 

4780 CALL SOUND (230, 440. 2) 

4790 CALL SOUND I 230, 323. 21 

4800 CALL SOUND (230, 639. 21 

4810 CALL SOUND(250,387,2) 

4820 CALL S0UND(300. 659, 2) 

4B30 PTS-PTS*10 

4840 GOTO 3280 

4B50 S«-"FLUSHZ*13" 

4060 CALL S0UND(175. 1319,21 

4970 CALL SOUND I 73, 104 }. 2) 

4980 CALL SOUND ( 150,880. 2) 

4890 CALL SOUND ( ISO, 698, 2) 

4900 CALL S0UND(43O,659,2) 

4910 PTS-PTSM5 

4920 GOTO 3280 

4930 S«-"FULL/< 17-' 

494o CALL BOUND <23 

4930 CALL S0UND(230,323,2) 

I960 CAI.L B0UND<2S0,494, 2] 

4970 CALL SOUND (230. 440. 2) 

4980 CALL S0UND(25O, 330.2) 

4990 CALL SOUND' V 

5000 PTS-PTSH7 

5010 GOTO 3280 

3020 B*-• , CARREZ*23■ , 

3030 CALL B0UND(40O ( 44O,2) 

504O CALL S0UND(40O,44O,2) 

30S0 CM t BOUND1400,494,2) 

3060 CALL SOUND (f r- 

5070 CAI i ■ OUND I 40i . W ■. 
5080 CALL BOUND{O00,413, I 
3090 CALL S0UNDi4'ji,,44u,:-i 
3IO0 CALL SOUND(1000.494.2) 

31 IO PT r J-l r.' 3 

3120 GOTO 32B0 

5130 8»-"Dt)lNip IROYM t /•■■" ■ 

3140 I OR TV-l TO 2 

8130 I M i BOUND! 
5160 CALi BOUND < 230, 

-.170 NE*T TY 

3180 CALL SOUND! 250, 639,2) 

-,:■-, n.i i .ijufjiH .-,.., 4v-i. . 




■ '■ ■ 



GESTION FAMILIALE 



La principale c<iract6nstique dc ce programme est 
qu'il n'utilise pas de fichiers annexes a charger. En 
effet. ceux-ci sont integres en DATA. II n'y a par conse- 
quent qu'un seul chargement a effectuer pour utlllser 
te programme. 

Pour ces raisons, il est absolument necessaire de 
recopier exactement les premieres lignes de DATA, 
sous peine de destruction du programme lors d'un 
enregistrement. 

DIDIER SCRIBE 



UTILISATION DU PROGRAMME 
1) Option du menu general 

- soilledu programme permel la sortie du programme pour etfec- 
tuet Me:; corrections eventueltes en changeant les valeursdes varia- 
bles (on peul continuer a ulihser le programme en tapant "CONT j . 
■ men! du fichier. met les nouvelles donnees en DATA 
puis sauvegarde tout le "tichier programme"; 



l Dormet tacorv. ■ 
■ 

•Jonnees a zero saul 

■ 

2) Option d'utitisntton 

•> creation permel de creer ses propres sous-rubriOu?s. a touch* 
ESC permel de comger une erreur lors de 'a redactton La nouvelle 
sous-rubnque est vaiidoe par RETURN Dans chaque categoric 9 
sousrubnques peuvent etre creees 

ration seion les comptesde credits de der I 
credilee ou debitee par detaut sur le compte en banque N 
choisir un autre compte en banque. ap: ■ C. puis 

precise; le N : ' du compte en banque :i n«2 ww 

RETURN. I'appui sur la louche ES'- ■■ rtecof- 

riger les erreurs Pour enreqistrer loperatron. valide; une somme 
nulte 

■:■ initialisation des comptes en banque (1" utilisation) seta 
nez le compte ei IkMi. y mtroduire lessoldes 

de tous les comptes. puis selectionnez chaque compte en opera- 
tion pour y introduire leur solde respectif 



2 WtMM.ID.W. »3B, • ?«,«». •CF.ttC.IS 

i.*ca.*FF,83,i9 

3 »!M I. 8968000 



* WTM 

3 DATA* 

6 MTM 

7 DATA* 

8 DATA* 

5 MTM 

!» DATA* 

11 OATA* 

12 DATA* 


9.1 

0.1 

».« 

a.i 

a.i 

a.l 

t. 

0. 

•. 


1* M!M 

IS OATA* 

10 OMM 

I? Data* 


.9. 

a. 

a. 

a. 


19 »tM 

20 OATM 


a. 

.9. 




















e 






29 OATA* 


_ 


23 DATA* 














_ 




























9 




























a t 






«a data* 












SI DATA* 




















36 OATA* 


a. 



INITIALISATIONS **** 



Kairxs 

lia REPEAT:r£ArX:POXEM00.C,O'C-C.|iUNTI 
LD-IFT ;0OK£»2F5. 1490. 'POKES 1 

e.3a 

13B I8,7;*MGESTI0N FMlILWU'0»ita,l3i*» 

->«. Dldl.r Seri&.'iPRJNTC 

mon 

130 lia,13iCt-C-CMW(3ei')3B3':F0l(l-lT03 

3;T»-Ta.---:NEXT:R£AOG,n;F0 

RS-1T08 

220 FWI-lT03:ffEM)»(n.<t(l}iGOSUB379*S: 

NEXT I, S 

290 F0RI-ITC*l:R£AOWiMEXT 




238 REM*** rCMU GENERAL **** 



383 !3,12;C«-A-9--C«*C Sari 
•••iPRIHICMRtOei-fW.' ".< 

nwen 

328 »3.1«;C**rVl-*C»*C Enr< 

llcMir' 
338 13. l8iC*-A-2-*C«*C Com 



331 REn«m SORTIE OU PRCG. Itit 

308 CLSiDOKElB, 47338 ;PRINTSPeC10]:PRiNTC 

HR*r.l7);CHR«C20}:STOP 

370 PRlrlTCMt«(17}:F«lNTO«*t20):DOKEI8,4 

7938:f»RINT-G£STIOH-Ul-:GOT0 

300 

380 X*CI)-fl«(I):OC(l)-(t(ll:RETURr' 

381 OF«tI)-R»tI)JOF(n-RtI):REIURK 

382 0£*CI)-R*r.I)iOE(IJ*ft(I]:ftETURN 

383 REtU)*ft*CI}:R£(l)-Rtn:RETURrl 

384 RC*tn*«»cn:RCtn-R(l):RETURH 
383 C8*[I)-R*[I) -C9[ [)-«(!) RETURN 
388 ; 

387 RE"**** ENREGlSTREnENT nil 

388 i 

466 E*--C£HR£eiSTREnENT-:G0Sua45e!I3,15i 

-HETTRE US CASSETTE EN PLAC 

E.*:£X-1 

405 T-1378;FORS-IT0e:GOSU8573:SOSUB(S*ie 

8J*508:FORN-1TO3:T-Y.34:X-8 

II-T«1S 

420 R£PEATiROKE'r*X,ASC(r)|0*(R*(N),X*l,I] 
):X-X'1HJHTILX-L£N(R*CN)):X 

-0 

421 IFR(N)<aTHErC-1ELS£0-2 

422 R*-t1ID4CSTR*UNTCRr.N)1J,0)t-.-tRISMT 
•CSTR4(IHTt[RCN)»l)*180)),2 

J 

•1 . 4B :NEXT iREPEAT iPOX 

1.1)3 :>e- 
K*l 

430 UNTILX-L£t<(R«)'NEXTrl,SiEN-0:|0,24i-A 
PPUYER SUR UME TOUCHE POUR 
COmEHCER- 

440 GETR«;CLSilS, l0!~EHREGISIREnENT EN C 
OURS- !CSr*Je-8£ST10N-UI \AUT 
D.S10OT03M 

458 E«HD*.C«fJ**C4tE4.-CLS:!3,3;E»*04it5 
,9i-£W» vou* lutC*)?- 

488 GCTR*:IFR*O-a-THEMPOP:GOTO30eELS£t2 
5.9i-0UI-:RETURN 

480 I 

481 RET!**** CONSULTATION **** 



349 l2.18jC«-A-3--C4'C 0*Mm*i tx.Hn 

■natllt" 

330 l2.18iC4-A-4--C«-C R.c.lt.i i.tolit 

$73 F0RI-iro3iR*Cll--*':RtI)-e;NEXTMFEN 
THENRETURH : ELSEGE TR • 

380 IFR*<*e'0RR*>*8'TrCN373EL$£0NUAL(R«) 
•1GCT0388, 000, 708,888. 900, I 




I-QRn-IB 

829 IFENTHENR£TURH:El_SENOo«0*.C*'-JO£PEN 
SES COURrWTES-*O«;GOSUB2098 

830 OWALUD-lGOTCSee, 850.848 
849 SOSUS3999:OC«[N]-R*:GOTOe00 

830 nU-I:GOSU82S09:OC(R}-R(R]:&OTOe90 

890 i 

891 REfll*** DEPEHSES FIXES mi 

892 I 

708 N-8:REPEAT:R*(M]-0F4(Nj;«tM].0F(N):N 

-M*llUHTILLEFT4(DF*[H).l)-- 

t'ORN-18 

728 IFENTr€MREtURN:ELS£MO4-G*tC4«-J0EPEN 

SES FIX£*.-.O*:GOSU82S80 

730 OHUAL(I»). 10010388,739, 749 

749 GOSUEO099.-DF4CN)-R*:GOTO700 

730 rtJ-1 :GOSUB2390:OF(R]-R[Rj:GOTO?00 

799 ' 

791 RErtM DEPEKSES EXEPTIOHMEkLES ** 

792 : 

808 N-0iR£PEAT;R#{N)-OEaCN)iRlN)»DE(N):N 

»N»! :UNTtLLEFT«CDE*CH}, 1 }-' 

1-0RH-18 

629 IFENTMENRETURNiELSEN0*-O4»C*.-J0EPEN 

^ES EXCEPTI0HNEI.LES->O«:GOS 

UB2888 

839 OHUALn*)*lGOTO508, 830.848 

849 GOSUB3e99:D€4tM)-R*:GOIO808 

839 nU-1 :G0SUB25ee:D£CR]-RCR) :G0T0889 

838 I 

891 REM* RECETTES EXEPT10NNELLES ** 



938 OMUM.(I«)*1GOFQS99.339,940 

948 GOSUe3000:RE*(N)-R«iGOTO990 

358 nu— 1 !G05UB2388:RECR)-R(R):ri0T03«8 

330 : 

991 REntM* RECETTES COURANTES *M* 

992 : 

1009 M-0:ftEREAT:R«(N)-RC*CN]:R[H)-RCI 

X-N.l :UNTJLLEFT«tRC4tN),n- 

***0RH-I9 

1829 IFENTMEMR£TURNiELSEN04-0*.Cf' 

TIES COURANTES-«D»:G0SU9290 



1838 OHUrtl.(I*)*IGOrOS0O, 1650. 1048 

1949 QOSUB3e00:RC«CN)>Rl:GOTO]999 

1039 nU'-|:GOSU82390:RC(R)'R(R):GOrOieae 

1833 FOR[-iT0H-li»4.8»l!llCl*-C-Cfl4tl)i! 

27, 8-1 iCPdJiKXT 

1898 l 

1891 REmn* COnPTES EN BAHOUES «*** 

1932 I 

1180 N-e:REPEAT:R«(N)*C8«<N):R(H>-C8CNl! 

M-N*HUNTILLEFT*(C8a(H),n" 

**-0RN-ie 

1120 IFEHTMEHRETURN:ELSEN0*«O*'C**-JCOnP 

TES EH 8AH0UES'*Da:G0Sue28e 

• 

1138 OHUM.(I«)*1GOTO309, 1139, 1149 

1149 GOSU83000:CB4CM)-R4:SOTO1100 

1150 nu-li GOSU82300:C8tR)-R(R)iGOTOI180 
1200 : 

1309 RED**** NOUUEAU ftOlS **** 




1518 F0Rl-II05i»!J1.8;aOSU»S>379!'4EXIl.S 

■ ■■ . 
1522 EH-0IG4-I1] . -. 
• (n),2)iPCKE1333.ASCti.£Ft*{ 
u».]Jl 

1539 POKE 1 400. ASC(RIGfT*:G*. l);^0«T1493 
.rXSCOHOHTItlM, 

, ■ . 

1340 POK£148?.*SCH.£FT4(r»,i31 0O«E»B9.3 
248:WT0298 
1099 I 

1709 R£n«i AFS1Cm*5E base EC»*n <• 
1899 l 

2800 Cl.S:l5.3;<«*:|7,7.C« &frjeftI0u£$*:!7 
.SlT91|2,eiT9:I2,B*MtTI 
2805 (FnlO*INC4.4,l3--C r ri£«!28,7;-0Ee!T 
'£LSEl2B.7i'SOLOE- 

2828 F0R1-6TOB.n:P-.0T2. I. 124:PlOT25. !,12 
4:Pl.0T3e.I.lJ4:sEXI 

2939 l3.22.C*-A-8-'C*-C «.l» u r CONSULTAT 
I0N-:13,23;C«"*-1--C«-C 0>> 



2068 !3.24lC4-*-2--C*"C C*« s t l*n>lQIT[«l 

IF!4<-8-ORI4>-2-ThEh2089£lS 

ERE TURN 

2298 : 

2300 RfnWM OPERATIONS *t*t 

2409 i 

2598 l3.32fC**COa«U« ' -m .*«•?- iSPC(9) « 
(3.23iSPC(19]:t3,24;SPC(19} 

2528 GETR»:R"UAl_(Ra)UFR<10RR>N-lIrtEN232 

9ELSET-9:U-8:CLS:l9,9lNO« 

2538 f9,9;C«*C'R*CR):!18,ll ;'-- >*it)4,Il 

!RCR):REPEATiU-U*l it?.2*2*U 

iC9'F* 

2332 t8,2>2*U;C*'-A-.STRa(U)'LEFTatC8«r.U 
),5)!UNTlLLEFT»CCB*tU»l ),1) 
•-•-0RU-3 

2333 REPEAT iT-T.Jirn.0T13, 12.t,43iPV0T13, 

l2*T,i82:OR-0ix-«;sn«---iRE 
PEATifiETR* 

2346 K-ASC(R«J:tFK<-3?ArO:j-4BTHEN2379£L 
SEIFK-46ANfX5fi-0TMENOR-l iGOT 
02370 

2382 JFK-27TMENSrl*--e-ill3,l2«TiSPC(2e)t 
f-T-1 

2583 [FK'39TH£r(2ei0ELSeC-liGOTO23a9 
2579 X-X«l>l13.X.I2'TiR*.-|-iSn»-Sf14.R*( 
PRINTCHR«<39) 

2399 UNriLF.-270RK-13iSrt-UM.(Sn«)iRCR]Hl( 
'R>sniCBCC)-CBrc)-rsn*nui 

2599 UNTILSrf0ANOKO27iR£IURN 

2818 t30,12'T;-Ce>*iaETR*i|FR«<-I'ORR«>- 
9* TKCN2S1 9ELSEC-UAL ( R* 1 
2830 IFlEFT«CC8«<C],l)-'l'TrCNrMNG:G0r02 
819ELSEf34,12.TiCilC-13i(i0T0 
2380 
2788 : 

2899 REMttt* CREATION till 
2390 I 

3999 IFN-18TMEMPIr«iR£rURN*LSED.Sil7.71 
l3lC«'r«a»i"C»'C I'l 



3,Kt-' 



-ANDla<-->"THE 



■A»l 

3929 UNTILLEN(R4)-180RASC(I»J-I3( 

)-27 1 IFM-- * TMENR«-*t * 

3033 IFASC(1*1-13rHEHREtURN>ELSE3088>OMT 

AJ AMU1 ER , FEUR I ER . OARS. AUR1 L 

4890 OATArWl.JUIH.JUILLEt.AOUT.SEPTEnBRE 

,0CT06RE.N0UEreRE.O£CErBRe 



* 



Suite de la page 3 



\|\C 



2.0 



• 5-0 P0KEnU*4,13 PO-7730 



AW KU-f-U«UI 

390 POKEPO.W 

393 FQR)4-234TG240*IMTlfiND<l>« l 18.iSTEP-2 PO»£MJ*i.M HEX IN POK£HU*2,B 

489 POKE/534. FU PWEF0.01 

418 POKEM(I)-0'IJ 

428 RETURN 

423 RE" PRERRRHTIMI ECR»' 

438 PO*:E7S«4.Fij PWEDU.3.118 1-1 POTEMf 1 > : 

433 t i f-8eeeee H ts*b 

448 FORO-0TQ21 PCRE?680-O.eM POK£7?23-0,BM POX£8164*0,W 
443 R0KE3S443-0.9 prjKE38884*0,5 NEXT 

458 PRlHTO**'-19>.<-WP«Ue>.THB<5J-«TEnP' i *. TAB'. 1 1 /. "•SCOW'.H 
460 FDRO-ir021 P0f.E7699<<BW22j.m. P0XE7688*((»i2l*2l -BL NEXT 
465 POKE38674.3 

«7i ooroBi 

473 REN Pl&EUN 1CJUCME 

480 POKERO.IL KO»38400»PO-i'6ee PUKE/0.4 F&R-/-1 JOHUd MBXTV P0XEK0. 1 

450 N-N*l PRINTCHR*'13;.r,HRIlie^.Sr^a6*.N 

493 K*£MU.3.B 

306 FORO-1T023 

563 P0KEHU*J.I28*Q« 

318 P0-PTJ.22 

328 Z-P£EK(R0> 

338 IFJ-SHlnEUCJ-ia PWEHUtl.8 OOtOSSe 

540 POKEPO.OB 

338 PW.EFU-22.se 

56B NEXT P0.P0-22.ai.-bl &OIO80 

690 REI1 FIN DE PF*TIE 

709 PRINT-3- POKEnU'J.U 

765 Fft IN r ■■•«•«••••••«»•*••«•••»•■ 

719 PRiNT-vou;. RVE2 R1HTTU -■»■■ Pli>£«<S D'flBOlLE." 

712 MT*NT»1 IFHT«4aOT07ie 

713 IFN^-20«NTrMEl*^lHT-'/«J& Ff/E2 OftONE" -3-HT, 'MM. - FQRP-1 rrj98&8 HEX! r-RlNI": 
□r0438 
718 IFNiSCTNENPRlNr-- 

-<0VHJ— 



728 PRIMT-UNE (WTfiE PFtRTIE 7 

738 &ETNI lF«*- ,1 u-CKfN»- , 'H*OQIO909 

735 0010736 

996 IF«i-"0-TWEHPRINT":r N-0 Ht*6 0010439 

f40 PRIM-«4»*t«»*»*»«4444*4*«"."fl B1EN1QI.. 

U30 ILND 



--fctLOMi iNtru WRVOi ' 




ERRATA 

ACHILLE et la TAUPE sur TI-99 

N*8 a <:lf: I6se de 4 lignes : 



lOOO IF 1<>Z THEN 270 
lOlO FOR TPS«1 TO lOO 
1020 NEXT IPS 
1030 FOR f*-l TO 3 



* 



suite de la pnge 6 



f\ 9 



,9/** 



34 70 


FR-0 


M'l" 


i ifNtioi 


54*0 


FOR T-3 TO B 


BSOO 


CALL COLOR IT, 1 , 11 


99 i ■■■ 


NEKT T 


5320 


PRINT " PERDU" ■ : n: 


5930 


FOR T-3 TO 8 


5340 


CALL COLOR IT, 2, 11 


5930 


NEXT T 


'.-./:', 


PRIM! •'2DESIRE7/V0U9 REJOUER 


S370 


CALL BQUMHI30. 1 ' 


5300 


(0, T.TT) 


■ ■ 


ir TT-0 i i'l ■■ 


56O0 


IF T-79 TMI n 100 


5610 




5620 


CALL 8CIT i 


5630 


a ro e 


9640 


•■■ ■ r . i . i > 




NEXT T 




3670 


FOR T-3 TO 8 


5&FJ0 


CALL COLORH. IB, 1 1 


3690 


NEXT T 


3700 


FOR T-t TO 730 


3710 


NEXT T 


3720 


END 


3200 


CALL S0UND(230,3Q7,21 


5210 


call B0UNDt290,9! 


3220 


CALL S0LJND(lfJ00.44O.4.220.12l 


3230 


■ 


3240 


GOTO 3280 


3230 


5»-"PERDU*-3" 


3260 


CALL S0UN0<300. 110,01 


3270 


PtS-PTS-5 


3280 


Cfll i HCHARI i , l'i. 52, 221 


3290 


FOR T-3l-LEN(3«)TO 30 


3300 


CAI i HCMABI :. 1 ,ASI I« B*<S«, < ■"•! i N(89l ,1)1 


3310 


NEXT T 


3320 


PT»-stR«i(r-r')) 


3330 


FOR T-2V 10 L'H'IFNtPrtt) 


5340 


CALL HCHARC\T,ASC<SEG»(PT4, T-2H, IMF 


5330 


Ml X 1 I 


9 60 


[] pfB; ■) ■■■■■■■■ 


g ■ ■■ 


CA WAH1 1, 10,901 


5300 


FOR T-l TO 129 


3390 


MtXl I 


5400 


CO-0 


3410 


Ai-e 


3420 


A2-0 


3430 


l'1-l 


3440 


'nIN 3460 


3430 


OQTO 330 


S460 


■ 



C'EST NOUVEAU, CA VIENT DE SORTIR ! 







ou 16 Ko de RAM extensible a 
20 Ko 

La giande originalite. qui nest 
pas un gadget, loin sen faut. re- 
side dans des cartes de HAM 
(4 ou 8 Ko) detachable Un 
compartiment permet d'inserer 
des cartes de RAM et de les ma- 
nipuier. cnargees de program- 
mes ou pas Vos propres modu- 
les enhchables! 



rgalement des cartes 
de meme format (carte de cre- 
dit) contenanl des programmes 
preecnts en memoire morte 
ROM et en (rancais: carte fi- 
chier. carte tables, carte gra- 
phlque, 

II est aussi possible, sans aucun 
accessoire complementatre, de 
sauvegarder des f ichiers a I'inte- 



rjeut Mi^mc detaRAM dej 

I ■■.<.' exempte,vouspouvez 
inrder un programme 
"PG 1 " en memoire centrale. (ai- 
re un "NEW" el recommencer un 
autre programme "PG 2" avec 
lea monies mimeros de lignesj 
Etonn.int. nun ? 

Pour nous resumer, il est done 
possible de sauvegarder un pro- 
gramme sur une cassette nor- 
male avec un cable de liaison 
classique, sur une carte de me- 
moire RAM amovible et inter- 
changeable ou encore a 1'inte- 
neur meme de la RAM centrale 

Pour linir avec la console, sa- 
chez que le haut parleur com- 
porte un potentiometre de ni- 
veau, permettant de laisser ses 
voistns vivrent leur vie (surtoul 
pour les programmers de 
nuit !). six touches permettant 
de preprogrammer douze fonc- 
tions: une serie de quatre He- 
ches actionnant un editeur de 
texte Ires pratique, un reglage 
du contraste de I'atfichage (4 li- 
gnes de 20 caracteres ou 32 x 
120 caracteres) et une horloge 
en temps reel indiquant sur 



commandeladateet! heuie Et. 
en plus, une alarme le premier 
ordtnateur-reveil 1 

Lecoupleuroptiquedontsesert 
i Hippocamped'Hebdogicielest 
-"-il apparancfl un gadget, son 
utihie nest pas evidente si ion 
sen sert pour reunir deux X-07 
comme ils doivent etre dans la 
meme piece . par contre. relie a 
I'intertaceRS 232C.lecoupleur 
permel denvoyer les signaux 
necessaires au (onctionnement 
d'une impnmante. Et que celui 
qui ne s'est jamais emmele dans 
des Ms de connexion jete la pre- 
miere pierre! 



Livree en option. I'tmpnmante 
graphique n'a pas besom de 
coupleur Un etui de taille redui- 
te permet de transporter le X-07 
et la X-710 (e'est le nom de guer- 
re decette impnmante). Graphi- 
que, quatre couleurs. papier or- 
dinaire en grande largeur. elle 
est directement branchee sur la 
sortie parallele de lordmateur et 
s'averera vite indispensable 
apres un premier essai 



C'est done un systeme complet 
que propose CANON avec son 
X-07 une console performante. 
une impnmante grapMcfue 
sortie parallele, une sortie 
un boitier d'extension RS 232 C 
pour impression et coitit 
tion. des coupleurs optiques. 
des cartes ROM preprogram- 
mees en f rancais et des cartes 



torquerez- 
■ 
84. arnvent un bloc d 
NTSC et un pet' - 

■ - . : . 
BOUM' 

:--och.-!ine, nous re- 
vtendrons plus en rji - 
(onctionnement ei a 
tions du X-07 




NUMEROLOGIE 



Apres I'astrologie. la chiromancie. les biorythmes et la 
devination. voila la numerologie. va-t-elle influencer 
votre vie? 

Frederic RACAUD. 



^ 



suite du 
listing du 
N°8 





54S1 PRINI-»ii 



5002 2AP 

5003 PRINT 

3004 MINI- [jjirwwwl- 

3005 PRINT 

seea input -uotRe date de naissance*;0i: 

3i-s;o«(oi)TGCsue]?«e;oi*r 

see? print 

sees input-date oe la jourke a predire - 

:0A:8«'STR*(OA) :GOSuei240:0 

sees print- <><> o <> <> <> o <><> o <> o <> <>< 



5010 

sen 

5075 
5035 
S040 
5043 
5050 
3999 



PING 
TI-XH3I-OA 

B» - STSi t : 1 ) . GOSUB 1 248 ■ ' I - T 

FOR 1-1 10 9 

IF If OI TmEN NEXT I 

Gosue moo-oooo.Dosue eeeee 

001010000 



END 

i sen 



see? reh 

0003 REn 

ioe* REn 

50O3 REn- PREDICTION D'UNE JOURnEE 
0000 REM- PLUS OU "DINS ELOIGNCE 
0007 REn 

0900 REH 
0009 REn 
9010 REn 

0099 REn 

0100 RE"- CNIFFRE | 

0101 REn 

0130 PRINT- Jn,»,,g. un jo„. pronei I 

Ctllfl 

0151 PRINT "da t«. 1.1 n4 .: d.r.ct*. • I 

0132 PRINT'on occ4tiont iijuibm. 
0100 RETURN 

0199 REn 

0700 REn- in IF." RE 2 

8201 REn — — - 

9250 PRlNT'IrKl.u. un jour .roxe* . 

• ludiof 

0151 PRINT-. t HHr I,, P r«bl«M*i ■ 

0232 PRlNT'dutu.l il Uu( 4vlt*r 4* 
*••••■" 

0200 
3299 

9300 



I R£H- 



CnIFFRE 3 
R£n 

PRINT-lninu. un J 

PRINT"b.. U tsu. <!• 
PRINT-ur. J«uf law) 



En- ChIFFRE 4 
£1 - 

«lNT'| nai , u , un 



5500 PRINT-Un jour 4 

tur«, ou- 

95SI PRINT" 1 I ItuI p 



0507 F 
5563 6 
0599 II 



» REn- CNlFFf 

i Rtn- 

I PRlNl-Un jou' 



0052 PRINT'. 



0053 PRIHT-ra .. -■,< 
6054 RETURN 

0099 REn 

0700 REn- CMIFFRE 

0781 RE" 

0750 PRINVUn jour . 



leeis for i-i ro LENtn«i 
iee?0 c« -rm:« [04,1,1) 

10039 FOR J-l 10 29 

10050 irc«'nio«[»cPMn«. j, i)ImEnprintc4 
-> -;:G0sue irasj>700O0 

10055 NEXTJTNEXTI 

iee30 cosue oeese 

leeoc REn 

10001 REn 

10007 REn 

10003 P£n 



I* 



i REn 



0731 PRINT-. 



0752 RETURN 

0799 R£n 

0690 REn- CHIFFRE B 

0881 REn 

0050 PRINT-uto j. ur c.rtlculH 

0851 PRIhT", llo.li camt'ucl 

8057 PRINT-.., ln . .t MH tf. ( 

8853 RETURN 

6899 REn ■ 

0900 REn- CNIfFRt 9 

0901 PEn ■ 

6950 PRINT'Un jour ou l'«n K 



i REn-- 



7005 REn- 2£r»E ECRAN 

7818 REn- 

'815 REn 
7870 REn 

7025 POKE 481S0. 18 
7838 POKE 48780, [8 
7035 POKE 48480. 18 
7048 POKE 48448, IK 
?045 POKE 48040. 18 
7850 POKE 46080.10 
7853 INK 7 

7800 plot h.s.-lh NuncROLOOiE' 

'970 PlOI 9, 9,-PEUT-ETRE rXISSI UN- 
7980 PLOT 8,l3.'nOTEN 0£ PREDICTION |- 
'090 PLOI I I. 4. -in NunCROLOClt" 
7108 PLOT 9.10, -PEUT-ETPE fXjSSI UN- 
7118 PLOT 8,10.-norEN OE PHEOICIIOn |" 
7170 RETURN 



i am- 



18077 REn- 

18078 R£n- LET IRE rtXlALE 

18079 REn 

18080 N-(.EN'H0*[l)l:Q*IKTOW):H:|-H-(Qt2 
i 1 : IF HI-0 INEN 18100 

10897 PRINriPRINTiPRINI-LEIIRE AXI«LE - 

18100 PXl*INT(LENCN04(l]]/7)t| 

• 18123 RI4-nI0»tN04[| 1,0X1,1 HPRINTR14IPR 
INTlPftlKt 

18130 IF RI8*--- DRRI4.-- ORRK-"* THEN 
RI«-nlDf(NO«(l),AXI*l.l)-'P 
RINTRI* 

10133 PRINT IPRINI 

10134 FORI-I T0?9 

J 18133 IFR!«oniOt(M.PrM«,I, MIMEN NEXT I 
18130 COSUB It 108.30000 iGOSue 08000 

I 18137 GOTOI8108 

18138 REn 

18133 REn- UOTELLES - OESIRS 

18148 REn 

18141 REn 

10142 REn 

> 18100 REn 

18101 REn 

II 18104 PRINT :PRINI-U0S OESIRS DEPENDENT D 
E UOS UOTELLES.- 

fi 10103 FORI-I TO 29 

10178 IF UOITHENNEXTI :PRlNI-ERREUR-:CO 
1010179 

18171 PRINT :PRIHT 

18172 GOSUBH73'40000:PR|NT 'PRINT 

18173 GOSue 00800 
, 18178 REn 

10179 PRINT iPRINT-utS CONSONNES INFlUEhT 
SUR UOTRE PNTS-IOUE-iPRINt 

IPRINT 

18180 FOR l-l TO ?9=JF C-l IftN C05UB 

43880*1175 

18190 NEX1I 

18191 GOSue 08080 
18197 REn 

10133 Rtn 
18194 RE" 
18193 RE" 
10190 REn 

18280 RE" -- 

19203 REN- UIBRfUION It' «^1l. 
18218 REn - 

I82H PEn 

10717 REn 
18713 Rtn 
10214 Ri.n 
10213 PRINT >P«|HI 

10220 PRINT -OEPISTE* LIS SECRETS OE LP- 
PREHIERE' 

10221 PRJNI-UOTEl.LE.-iuOl--AE.0OT- 



»181:G0SLG OOOOOiuOTO 10200 
18244 NEXT j:NEXI I 

10201 Rtn 

10202 REn 

10203 REn 
10704 Rtn 
18703 REn 

18271 REn- 

18777 REH- SONCWGES DES TErCNKES - 

10773 R£n 

1078O n«"LEN(N41-iVI 

J079O En-iNi(((£nt]00]'nrmiaej.'i0« 

18795 lN>lNI[((IN»IO0)'nr>)tl08)'10O 

18300 CE-IHT([tCEIia0)'nrt]i|0O>'lM 

10385 PH*lNH((PMil801/rM)4|0fl]^|OO 

'83)8 COSU8 4B080 

10330 REn 

18355 REH 

18300 REn 

18303 REn 

10370 R£n 

10480 REn 

18481 REn 

1P402 REn- MESURE DU NOn 

10483 REn 

18484 REn 

18485 Rtn 

10489 PRINT iPR]NI:|Fnn<?ORrv*)30IH£N CL! 
>'.0!0 18588 

18410 PRINl'nESURE OE UOTRE NOn -in*;' 
ETTRES. - 



MIS i 



:f.a tt 



18470 GOSUB 58008.11^110) 
10475 GOSUB 00800 

18438 REn -- 

10435 REn- RETOUR (O'N] 

10440 Rtn 

18443 RE" 

10850 REn 

18433 REn 

10500 PRJNI IPRINI 'PRIM :PRINI 

18583 PRINI-UOULEI UOUS ENIREi UN rtUIRt 

tffln (O'Nl* 

18318 PRINT 

18315 INPUT RE* 

18570 IF RE4--0- 1MEN CLEiWOOlO 90 

18373 IF KE4--N- TfEN CLS-ENn 

18538 PRIN1CMR4C1I )J- -:P»INTCrVt(Il) 

l-'GOTO 10313 

19980 EnO 



i REH-- 



19000 REn- UISRnllON DES IHHSA4.ES - 

10001 REn 

18010 CLS 

18011 PRINT. PRlN!-L'INiri*LE ESr LA LOCO 

nOTIUE Ou hot- 

18012 PRINI-EI DE C£ Fr>[I SA UlBRiMION E 
ST PLUS FORTE. - 

10013 PRINT iPRlNT'ENlREI LtS INIT1ALES 
£ UOTRE NOn £1 DE UOTRE PR 

ENOn- :PRINT 

10014 input n»:PRiNTiPRiNi 



10223 PH1NI-SI0NALE DES PlWIICULfWI IE . 

10273 PR]Ht-U0TlLLE.-.U04«-ft£IOUT- 
10238 FOR [•] TO LtN(N04(D) 
10740 LO«>nlOI(NO»(l). I. 1 1 

10241 FOR J-l TO B 

10242 K»«niO»(UCI. J, I) 

10243 tf L04>K« TICN PR1NT.GOSUR4O4B0.1 J 



2O0O5 REn- SOUS-PR0GftfWn£S 

,1*818 REn- - - 

20013 REn 

20028 REn 

20030 FEn 

70100 P81N1-R£U£LrtT10N- IRETURN 

78200 PRINT-PERPLEXIIE- iREIURN 

28388 PRlNT-CONNAISSAHCE-iRElURN 

20400 PR|Nl-APPRECmi|DN- .RETURN 

28300 PRlHl-TRIOnPNE" |R£1URN 

20080 PRINt-ELEUIMION OU CHUlf .REtuRN 

78700 PRINt-pftSSION" .RETURN 

20800 PRINI-CrtANftEntNT- IRLHMN 

2O9O0 PRINr-MABHE1£" iRElliPN 

71008 PRIHI-REuERIfiRETURN 

71180 PHlNT-ftCTION- .RituRM 

7I2O0 PRtNl-rnNIOISIE-. RETURN 

71300 PRINT-PROIECTION- .RETURN 

71400 PRINI'lnnOINAllON- IBE1URN 

71300 PRlNT-AnOUR-IRCIURN 

21000 PRINl-EOUlLlBRE-lRETURN 

71780 PRINl-unRlnllON- (RETURN 

71800 PRINl-BRflUOUR£-:RE!uRN 

2I900 PAINI-SUCCES OU RESIGN*! ION" iREIUR 

22000 PRINr-lnPRUOENCES-iREIURN 
22100 PKlNI-LUXfiREtURN 
72280 PRINT-SUPERIORITE-rRETuRN 
27300 PRIHI-CONPLEXHE-IREIURN 



77400 PRINT-UNION OU DUNL It £ * I Rt T iKn 
22500) PNlrlT-ECMrtHGES-JRCTURM 
22T30O roiMT-RENOUUELLEnCNT-iREtuRN 
38180 PRINT-PERSEUfWHCE TENWCE. " i«£IUFN 
30200 pKlNT-CCtCENTRE2-U0US O'rHJaNTftCC S 
UR CE OUE UOUS FnlTES-'-RETUfW 

3»30e PSINT-ESPRIT CRltlOUE EI nEnf TPWt 

INET nOOUEUR' .RETURN 

X4B& PKINT-nnCNETISnE-iREIUKN 

38300 PBINT-UIUrtCITE O'ESPRJ T" iREIURN 

30000 PR1NI-GENTILLESSE- :«ETURN 

38700 PR1NT-SAIT nENnCER SES INTERETS'iR 

ETURH 

3O8O0 PRINT-INTUITION- .RElURN 

39300 PRIHI-L1URE2 UOUS OALWiTftGE" iREIUR 

3IOOO PRINT-SUR LES CHCnlN DU POUUOIR'JR 
ETURH 

31180 PRINT-UOUS ETES UNE InEPUISABLE SO 

URCE OMDtES- .RETURN 

31700 PRINT ■DIPLOnnT IE" .RETURN 

3130O PRINT-PAS ASSEI OPPORIUNISTE* IRETU 

RN 

3)400 PRINT-UN PEU TROP CATEGORIOUE DANS 

UOS OECISIONS- .RETURN 
31500 PRINT-BESOIN OE S'Af f IRnCR' i«E TURN 

31000 PRINT'POUUOIR INTENSE O'ANALTSE-I* 

ETURH 

31?00 PRINT-LE GOUT DE L A nEDl TATION' :RE 

rum 

3I8O0 PRINT-ON PEUI URAInENT COnPTEP SUR 

UOUS-iRETURN 
31900 PRINT-UN SONNE UR EOUIL IBRE' .RETIVN 

32000 PRINT-UA DE OECOUUERTt EN DECOUUER 

lE'tRETURN 

32100 PRINT'AROEIK INTREP1DE' iRElURN 

32200 PRINT-RICME ER CREAT ]ul IE" iflETURN 

37300 PR]NT-OISCR£T...nAIS RIEN NE UOUS 

ECHAPPE" IRE TURN 

3240O PRINT'CHARfTE ET OlStlNCT ION" iRCtUR 

32500 PRINT-GErCROSITE* iRETURN 

32000 PRINt'LE OrNAfllSnE HEnE" IRETURN 

40O23PRINT-R.ui.lt. M'SMARllRi u*i ft 

Oj.l* n«- 

40020 PRlNT-*u»r>ort«nl »•■ la Mdloerlt* 



40027 PRINT -mnl ■* ..all... 

40028 PR|Nt-S40*ibillti »■ < 
0**lr d4" 

40073 PRINT-dn.in.. at ,1. ill 



I l*|. 



40050 PRINT-l^.ftanc* *cc.r4. « )■ HM 

40031 rHJHT'1'MltU. 04. it i'M'wnil 
d'Uftl«n" 
40032 PRINT'ou d'«*ioc lal i«n ear u«ut 

40O53 PRINT-Ml l« lolitudt.'lRETURN 



En raison de la longueur du lis- 
ting, nous passerons cc pro- 
gramme en plusleurs fois. 



ASUIVRE.. 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIELdu MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus! 
Rien de bten original dans cette 
formule, pourtant nous es- 
sayons de (aire quelque chose 
de different : nous organlsons 
un concours permanent tous 
les mois et tous les trlmestres ! 
Et avec des prix dignes des pro- 
grammes que vous ailez nous 
envoyer t 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage. HEBDOGICIEL ntnter- 
venant que dans le choix des 
programmes qui devront etre 
ORlGINAUXet FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistesvousdira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour particlper, II vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation alnsi que toutes les ex- 
plications necessaires a ('utili- 
sation de ce programme. 
Vous pouvez obtenlr graluile- 
ment des bons de participation 
en ecrlvant au Journal. 
Bonne chance! 

■ 

ART 1 HF.8DOGICIEL organise 
de facon mensuelle et tnmes- 
tnelle un concours dote de prix 
recompensant Ig meilleur logi- 
ciel du mois el du Inmestre. 
ART 2 Caconcourae 
tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise L'envoi dun logiciel en 
K 7 ou disquelte accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de noire 
journal constiluo I'acte de can- 
didature 

ART 3 La redaction d'HEBOO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite el de loriginalite les logi- 
ciels qui son! publies dans le 
lournal 

ART A Ce sont les lecteurs qui, 
par leur vote, determment les 
meilleurs logiciels mensuel et 
Irimeslriel 

ART 5 Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la cl6' 
lure du concours mensuel 
ART 6 Le prix alloue pour le 
concours trimeslriel sera remis 
au plus tard un mois apres la cl6- 
lure du concours Irimeslriel 
ART 7: Le present reglement a 
ete depose chez Maitre Jauna- 
Ire, 1. rue des Halles 75001 Pans 
ART. 8: HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9 La participation au con- 
nnel'acceptalion par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 
FOY - 75008 PARIS 

Sera declare gagnant !e pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systems 
de depouillement du vote. 



BON DE PARTICIPATION 



Nom 
Prenom 

Age ; 
Adresse 

n" telephone : 
Nom du programme 
Nomdu materiel utilise ; 

declare etre lauteur de ce programme qui nest m une imitation m 
une copie dun programme existant Ce programme reste ma pto- 
pnele et I'autonse HESDOGICtELa le publier La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remunere au prorata de la sur- 
face occupee) 
Signature obhgatoire : 
(signature des parents pour les mineursf 

Le programme doil etre expedie sur support magnetique (cassette 
ou disquelte) accompagne d'un Descnptif Detaille du M 
lise. d'une Notice d'Utilisation du Programme, et dun emballage 
timbre permeltant la reexpedition du materiel non publie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAtTENTFAIRE 
PUBLIER UN PROGRAMME : 

• Indiquez sur le support 
magnetique lui-meme votre 
nom. le nom du programme et le 
materiel auquel il est destine 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'Apple sur PC 1500. 

* Notez dans les premieres 
lignes de votre programme, sous 
lorme de REM. votre nom, le nom 
du programme et le materiel 
auquel il est destine. Nous oour- 



rons ainsi reperer facilement les 
listings, une foissortisde I'impn- 
mante. 

• Dupliquez plusieurs tois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a (ait compati- 
bles 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme. Votre lettre d'accom- 



pagnement et vos autres cour- 
riers doivent egalement etre 
separes car traites par d'autres 

services. 

• Joignez, si possible, un listing 
du programme et un organi- 
gramme, 

• Enfin.lefindufin.expliquezles 
particulates de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOIS1R DANS 
SON RAYON L1BRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



HACHETTE MICRO INFORMA- 
TIOUE OFFRE UN ALICE AU 
MEILLEUR LOGICIEL DU MOIS. 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CEERS.232.C. 





N°5 


N°6 


N°7 


N»8 


APPLE II 


COCHON QUI RIT 


AIDITEUR 


STAR RAIDER 


DOS FRANCAIS 


CASIO FX 702-P 


VALLEE MAUDITE 


PETRO S 


JOYEUSE TRAVERSER 


QUADRILETTE 


COMMODORE 64 


TIERCE 


BONS COMPTES 


OTHELLO 


CADRE DIABOLIQUE 


COMMODORE 
VIC 20 


SOUS-MARIN 


AUTO CROSS 


PERDS PAS LA 

BILLE 


DIX PETITS 
HUMAINS 


GOUPIL 


CASSETETE 


FOU ET MEDECIN 


JACKPOT 


LABYRINVISIBLE 


HP 41 


TRILOTO 


F97 


VOilTES 


CASSE-PIPE 


HP 75 


COMPTE EST BON 


DES-ILLUSION 


CHANGE 


FETCH VAR 


ORIC1 


BIORYTHMES 


VERIFY ■__— ' 

PANIQUI 


TIC-TACTOE 


HANAPS 


PC 1211 


JEU DES CERISES 


GESTION DE 

DEPENSES 


NAVIGATION 


POIDS IDEAL 


PC 1251 


JEU DE LA VERITE 


SAUVETAGE 


TRAITEMENT DE 

rEXTE 


RND, DRAGONS 


PC 1500 


TANK 


CHEVAL 


MICROMUR 


CCP 


MZ80 


GESTION GRAPHIQUE 


COMPTABILITE 


COMPTABILITE 


HARD COPY 


ZX81 


LE MOT LE 
PLUS LONG 


BOURSE 


LABYNOIR 


LECTURE 

RAPIDE 

NAVETTE 


SPECTRUM 


ALLUMETTES 


TIRMOTS 


BIORYTHMES 


CRACH COSMIQUE 


TRS80 


EDITEUR 
DE TEXTE 


ECRAN MAGIQUE 


meteorites 

^ martiens 


DERNIERE 
SEANCE 


Tl 99/4 A (basic 
simple) 


SOLITAIRE GEANT 


DONJON 


BULLDOZER 

BALLI 


ACHILLE ET LA 
TAUPE 


Tl 99/4 A (basic 
etendu) 


TORPILLE 


JACKPOT 


ROLAND GARROS 


BOWLING 


TO 7 


METEORES 


CHI RCHEUR D'OR 


GALACTIC 


THOM7 
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100 BULLETINS DE 
VOTE - TIRES AU 
SORT - GAGNERONT 
LE GLOSSAIRE EDI- 
TE PAR SHIFT EDI- 
TIONS. 



DATE LIMITE D'EN- 
VOI DES BULLETINS 
DE VOTE: JEUDI 15 
DECEMBRE, MINUIT. 



AUX URNES ! 



Abandonnez quelques instants vos claviers e( prenez 
votre plus belle plume pour remplir le bulletin de vote 
ci-contre. La redaction d"Hebdogiciel compte sur 
vous! 

La marche a suivre est simple. 

- Reperez dans la grille ci-contre le programme 
pour lequel vous voulez voter ainsi quecelui pour 
lequel vous votez en second (le second nous per- 
mettra de rendre plus equitable la formule de 
choix du gagnant). 

- Reportez le nom de ces deux programmes sur le 
bulletin de vote. 

- Inscrivez vos nom et adresse sur le bulletin de 
vote. 

- Expediez-le a HEBDOGICIEL. CONCOURS MEN- 
SUEL, 27, rue du General FOY. 75008 PARIS, 
avant le jeudi 1 7 novembre a minuit, 

II est fort probable que ceux qui participent au 
concours feronl voter leur papa, leur maman, leur cou- 
sine et la totalite de leur amis et relations pour leur pro- 
gramme. Normal! Mais comme chacun d'eux fera la 
meme chose, cela n'est pasbien grave IToutefois, tou- 
jours dans un souci d'equite, nous n'accepterons que 
les ORIGINAUX du BULLETIN de VOTE ; pas de photo- 
copies, cela seratt trop facile! 



BULLETIN DE VOTE 



A renvoyer avant le 17 novembre, minuit a HEBDOGI- 
CIEL, concours mensuel, 27, rue du General Foy. 
75008 PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT : 
NOM DEL'ORDINATEUR: 

NOM DU PROGRAMME: 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE L'ORDINATEUR : 

NOMDU PROGRAMME: 

MES COORDONNEES POUR LE TIRAGE AU SORT 
DES CALCULATRICES CASIO : 

NOM ET PRENOM : 
ADRESSE: 



DESSIN 



Dessinez avec un tangage de programmation en fran- 
cais et en (presque) clair. 

Vous ne pourrez pas dire a votre ordinateur ; "dessine- 
moi un mouton". mais il comprendra quand meme : 
"cercIe/50/bleu". ce qui nest deja pas si mal ! 



DESSIN pormet 1'execution facile de graphismes sur Goupil II, en 

basic. 

Aussitot lance. DESSIN ollre a l'ulilisateur une vingtame d'ordres 

graphiques 

Ceux-ci seront renires en minuscules, suivi de / ainsi que d'even- 

tuels parametres. 

Ex : cercle / 5 0/ trace un cercle de diametre 5 
oid re parametre 



Les parametres peuvent etre des chilfres (coordonnees, dls- 
1 une couleur on on cod? i 

Couleurs autonsees : noir. touge, bleu. rose, jaune. vert. ciel. Wane 
Code do irarl B effacemenl 
t trait plein 

2 pointille long 

3 trait daxe 

4 pointille court 
9 deplacement sans modification du dessin 

Tous les ordres peuvenl etre abreges DESSIN les reconnait sans 
confusion si au moms les 2 premieres lettres sont presentes 

Voici une breve description des principaux ordres Les parametres 
Alain PRE '"Piques entre parentheses peuvent etre onus. Une valeur par 

defaut sera alors prise. 

efface / (couleur) / efface I'ecran dans la couleur specifiee 

couleur / bleu ' fixe la couleur par defaut a bleu pour tous les 

ordres SUlvants 

fin / permet de sortir du programme 

(ne pas utiliser CTRL + C) 

xechelle / X1 I X2 / ces deux ordres fixent la graduation du refe- 
rence pour les futurs traces 

yechelle / Yt / Y2 / autrement dil. XI devient le bord gauche de 
I'ecran X2 le bord droit. Yl le has et Y2 le haul 

informations / affiche- - la position de la plume. 

- la couleur de trace par defaut. 

- les echelles. 

© 



print chr*u3>i -dessin- i 

SOSUB 200001 REM -- If 

ON ERROR GOTO SOOOOiREM 



PRINT I 1 

itlalluti 

~ Traiti 



PRINT ->■ ; : INPUT LINE R* l IF LENIR01-O THEN GOTO 200 
IF RIGHT*. (ft*. I) <> •/■ THEN PRINT E»(2> J GOTO 200 
GOSUB lOOOiftEN — Daco-poaltion 
IC*0 

FOR 1-1 TO NC 

IF R«C01«LEFT*[C»(l>,LENtft»(Om TtCN IC-I 

NEXT I 
IF IC-0 THEN PRINT Elfll i GOTO 200 

IF LENIft*C0)> <> LEN(C«!IC>> THEN GOSUB 1700iREN — RiK f tcnaga. 
IF IC=« TfCN PRINT F»i PRINT : PRINT ! END 

COLOR CF : PLOT 10, YO t COLOR CC ■ ft£H -- Ef*aca la pluea. 
IF [C<4 TtCN ON IC GOSUB 2000,2200,3000 

IF IC>4 AND IC<-I0 THEN ON IC-4 GOSUB 4000,4300,3000,6000,6500,7000 
IF IO10 THEN ON IC-10 GOSUB 7300,3000,8300,8700,9000,9300,9700, 10000 
PLOT XO.YOlREH — r»apB»ritlOn «» 1* pluw 

GOTO 200 



1000 fi 
1010 fi 
1020 R 



1150 F 

1160 F 
1200 R 
1210 fi 
1220 fi 
1230 fi 
12*0 fl 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1350 R 
1360 R 
1400 R 



1430 
1435 R 

1460 



DeCOWOSITION 



1463 :-tyco, 

1470 IF ABS 

1473 RETURN 

1460 REN 

1300 Oil : 




ABSIOY) THEN GOSUB 1300 ELSE GOSUB I 



FOR 1-0 TO 5: ft* 1 1 : 



4 INI I >NID* (fi t , J , I-J ) i J- 1 • 1 ■ | 



1540 
1350 



14-12 . Y3-Y1 : 
IF *2<tl THEN 13-12 i J 
PLOT 13, Y3 

FOR I-X3 TO 14 

Y-(X-X3)»DY/DX«Y3 
I-I*l 



Y3-Y2 I Y3=V2 ! 



RECHERCHE COULEUR 



IF LEN(R*1N>>=0 THEN C=CC : RETURN 
C-B 

FOR J» 7 TO STEP -1 

[F R*INJ-LEFT»(CO*(l>,LENIR*(Nm THE 

NEXT I 
IF C-B THEN PRINT E»(3) . C-CC t RETURN 
RtlNI-COttC) 

GOSUB 1700iftEH — He*( f icfmj*. 
RETURN 



IF I>TY(0,T1 THEN f-1 
1363 IF TYII.T1 THEN COLOR CT ELSE COLOR CF 

1570 PLOT X.Y 

15BO NEXT I 

1590 RETURN 

1393 REN 

1600 Y3"YI i Y4-Y2 i X3-X1 l X4-X2 
1610 IF Y2<Yl THEN Y3-Y2 I Y4-Y1 ! X>X2 i I4-XI 

1620 PLOT X3.Y3 

1630 FOR Y-Y3 TO Y4 

1640 X- (Y-Y31 •DX/DY»X3 

1630 I"I*1 i IF I>TY(0, n THEN 1-1 

1660 IF TYU.T) THEN COLOR CT ELSE COLOR CF 

1670 PLOT X.Y 

1690 NEXT Y 

1690 RETURN 
1693 REM 

1700 REN --■ 

1710 REN REAFTICHAGE 

1720 REM 

1730 REN 
1740 REN 
1730 PRINT CHFrtdllitRErt 



1760 
1770 



IF T-9 THEN PLOT X2.Y2 i RETURN 



PRINT ->? *lC*(IClt"/"i 
FOR 1-1 TO 3 
IF LEN(R*(]|)>0 OR I< 
NEXT I 

PRINT 
RETURN 



II THEN PRINT R*IIM Vf 



orto/ "Choile Y pour q«e h 

ronds 
drcte / X / Y / (e 

fac - : >n actue*e d« 

lap ,- 

code trail par defaut est i 
cercle/ diametre ' 

trace un cercle centre sur la position actus** 
de la plume 
rectangle ' cote X / (cdte Y) / (code trait) / (« 

trace un rez' .<■ : :>n ac- 

B de la c'ume $\ cote Y 891 
agal a cote X 
xaxe / (debut) / (tin) / (hauteur) / (mt grad ) / (coo 

trace une dro^-* 1 no'izontaie -jui s'etend <te 
"debut" a "fm". a la hauteur preosee et gradue* 
Parametres par defaut 
debut extreme gauche de I'ecran 

extreme droite z: 
hauteur o 

mt de grad pas de graduations 
Messages (fern 

commands incon 
terminer les con 
hors ecran 
parametre incorrect 
couleur inconnue 



1B60 E 
1000 R 

2010 R 
2020 fl 
2030 K 
2040 S 
2050 
2033 
2060 
2070 
2100 R 
2110 R 
2300 fl 



AsvALIRtM)):R£N — 1 

B-VAL(R«(2)):R£H — | 
IF B-A-0 THEN PRINT E»U 
RETURN 



2320 R 
2330 R 
2340 R 



2600 R 
2610 R 
3000 R 

3010 fl 
3020 R 
3030 fl 
3040 fl 
3050 
3060 
3070 
3090 
3093 fl 
3100 
3110 
3120 
3130 
3140 
3130 
3160 
3163 
3170 
31B0 fl 
3200 
3210 
3220 
3230 
3240 
3230 
3260 A 
32B0 fl 
4000 fl 
4010 B 
4020 R 
4030 fl 
(040 PI 
4030 
..4060 
4070 
4060 
4090 



A-Vtt.(ft«(tlliR£N — Imlti Infariaura an ' 

B-VALIRt(2HiR£N — Itait* fevartaure an ■ 

IF B-ft-0 THEN PRINT EK41 ELSE KY-233/tB-A) 

RETURN 



IF LEFT«(R*(ll,3)-'coa* THEN GOSUB 3100 i 
IF LEFT»(ft*<ll,3J«-cou* THEN GOSUB 3200 i 
PRINT ER*(4)tR£N — tynUi 

RETURN 



PRINT D4W<12>t"CONfVWDES I 

FOR I-l TO NC STEP 4 

FOR J-0 TO 3 



: PRINT i pnn 



PRINT TABUO«J»iC»ll».l»i 



NEXT J 

PRINT 

NEXT I 
PRINT : PRINT 
RETURN 



PRINT OW»U2l1-COULEURS-]TAB(20>r 

FOR 1-0 TO 7 

PRINT C0*<IMTAfi<23l|! 

NEXT 1 
PRINT ■ PRINT 
RETURN 



GOUPIL 



I PRINT i PRINT 



N-l i GOSUB 12001 REM — Racharcha da 1 

CC-CiREN — coulaur couranta 
CT-CCiREN — coulaur del tracaa. 
COLOR CT 
RETURN 



4300 R 
4310 R 
4320 fi 



TENBALL 



Tennis, squash et casse-briques; les trois a la fois! 
autant dire qu'il faut s'accrocher a sa raquette pour 
battre le record ! 

FRANQOIS ROUILLE 

La raquette peut se deplacer dans tous les sens entre le filet et lo 
fond du court; sa vilesse de deplacement peut etre doublee en 
pressant le bouton "action" de la manette de jeu. 
Ensuile, cette raquette comporte un tamis central provoquant un 
rebond normal de la balle el deux exlremltes dont I utilisation, bion 
qu'un peu perilleuse.est indispensable au coursdujeu En effet.la 
balle, a la suite de rebonds normaux et un peu comme un fou aux 
echecs, ne se deplacerait que sur U:r, cases blanches (ou paires) ou 
sur les cases noires (impairs) dun damier fictlf. C'est on faisant un 
"bois". reprise par une extremite de la raquelte. que Ton permot a In 
balle de changer de parite. 

Les fins de lableaux sont delicates et pour bri3er losdernieros bou- 
les, il faut faire preuve d'habilele En rostant au filot. lo jou est plus 
rapide mais la balle decril desesperement le memo circuit En se 
cantonnant au lond du court, on a un peu plus le temps de voir venir 
la balle, mais les decalag.es de celle-ci sont bien lonts. II laut done 
'.avoir :;e doplyceron profondeur sur le terrain, changer de wit* SI . 

BprentJr* la balle afitucieusoment par les extremites el ne pas trop 

ifjf quand on a "loupe" la balle 

•i programme Ba3ic peut paraitro compact et toullu On pourrait 

iffectivemenl Talleger el le rendre plus clair, mais co sorait au detri- 
ment de la rapidite qui esl tout a fait esnentielle dans CO genre do 
jeu. L'introduction du programme so simpliflc si Ton considore que 
[es Hones it a M puis 15, 16el17.18sont tressemblableset peuvent 
Mtn.; introdiiitf.v, p;tr simple modific.'il inn tic. I'afficlwjge (I'iku: de '.<■: 

!,-(!,.■ . 




1 COTOSe'REM -TENBflLL' iur T07 p.r frant 
oil Roullla 

3 IFP0INT(B»M*4,e»V'4)-E IHtNBEEP' 0— O'N 
•N»IIL-L-1IATTRBB. 1 < LOCATE 13, 23iCOLORGi* 

PHiiniiATTP8fl,eiin.-nrME»PsrT<x,Y>* 'ips 
tT(M,v)CR4<a>,CL-28ei»«-N«eiroRi-eT06eei 

NEXTIC0T041 

fc irY-13TNENP3ET'K,i , )C»l(4),CiC0I0B 

7 PBET<X,Y>- ' 

8 PSET(M,V)C»»"8),&'X-HlY-v 

IB T-STRIG<8>l0HSTICK<e>G0TD17, IS, 16, 13, 
IB, 14, 13. lUGOTOee 

1! IFA( I THEHI7ELSE IF 0< 15lMERi3EL-.il 0(. .Il 
A.BlPRINT* -IA'il-1 IB-B-1 ' 1FY-B flH0!X-A 

0»X-A*l 0BX«At2)THENPSET<X,Y)- "IX-X-H 
H-H-HY-Y-HV-V-HlFT THCNT-BiGOTOl IEL9E 



SBELSE1FT TMEHT-B'GCITOllELSEae 
\2 IFA>36THEM17ELSElFB<13TMEN16ELSEL0C(ir 
EA,BIPRINT* •lA-fttHB-B-HIFY-B ANtXX- 

R 0RX-A*1 0RX-A*2)THENPS£T<X,Y>- •!:<->.. i 
rM-H»HY"Y-HV-V-|iIFT THEN! -8 1 (iOTOl 2ELS 
E28ELSE1FT THEXT-Bi C0T012ELSE8B 

13 IFA>36TMENieELSEirB>19THEN16ELSEL0CAT 
EArBiPRINT' •:o-rtM:B-B.| s IFY-8 A«0<X- 
A ORX-AM 0RX-A«2>THENPSET(X,Y>* -tX«X*1 
«H-H*1IY-Y»IIVV»1UFT THENT-Bi C0TP1 JflEL 
SE28ELSEIFT THEMT-fli G0T01 3ELSE28 

14 IFA<lTHEN18ELSEirB>l9THE««13ELSEL0CATE 
A, Bt PR INT" -lA-A-HB-BHiirY-B ANtXX-A 

0RX-A*l 0RX«A*2>TKENPSET(X,Y)* MX-X-jf 
M-H-11Y-Y.HV-V.H1FT THENT-Bi C0T0I4ELSE 
2BELSCIFT THEMT-81 COTOI 4ELSE20 
13 IFA<]THEN20ELSCl.OCATEA,BIPRINT* '•« 
-A-llIFI THEMT-BtdOT[H3ELSE2e 

16 IFA>36THEM28EL.jEL0CATEO,BtPPIKT" •! 
A-A*H1FT THEN1-01COTOI6EL3E2B 

17 irB<13THER2BELStL0CAT£A,BiPRl»IT- -i 
B-B-IUTY-B AM0<X-fl 0BX«A«! 0RX-A*2)THEN 
PSET(X,Y>" -rY-Y-HW-ltlFT THENT-eiCOT 
OI7ELSE28ELSEIFf TREMT-BIGOTO 1 7CLSES8 

IB IFB>19THE»28ELSEL0CATEA,BIPRI«T* -I 

B-BMiirv-B ANOIX-A 0BX-A.1 0RX-A*2)TMEN 
PSET(X,Y)* 'iy.y.HViV.11 IFT THENT-BiGOT 
018ELSE28ELSEIFT TI'EMT.ftiCOTOI BEL8E28 
28 C0L0REiL0CATEO,BTP»IKIAIiH-X»CIV-Y»0i 
irH<80RH>39THEKBEEPiC--CiM-XtC 

21 irv.-BTHFMnEEFMfj-l :v-l M.0T07I ISHIVH 
THEN3 

22 IFV-B THENirx-A IHEM0--1 I IFX< 1 TMENC- I 
iH*XMlV-B-2iGOT06ELSEBEEPiC--|iV-8-MH- 
X-liG0T06CLSEIFX-A>ITHENBECPi0>-IlV-B-2l 
r,fiT06ELSEirX-A.2TnrN[.--llIFX>38THCNC — 11 
m-X-H V-n-2iG0Ta6ELSEntEPiC-l«V-B-ttM-X* 

ItfiOTOSCLSn 

23 ]FV>2BTMEH38ELSEirY>8 IHEN7ELSC IFx-A 

OPX-A.lQPX-O'.'TKrNCriLDBElLOCATFA.BlPPlNT 

A11GDT08ELSE7 

38 PSET<X,Y>" *iPSET(M,V)GR«<B),GiLOt.ATE 

■>,IMC0L0«riP01Nir.RI' I ljr.»K^i;GWKJnPLA 

Y'LIt>0D0»RE«E4HIFAFA4Sn-,r)4L.il CilSlrnrifK.Ot 

RFI)EtnirArAt30304LALA«SI'lPSET<K,V)CRI(3 



Jl irNJIlMEN42EL9lL0CAlEll,14>PRINI-LmE 

AUTRE PARTIE'MPRINT" SI Qui trru'it: % 
r ou iur -ACTION--SPC<e)-iinor> w^,« 
tur r>Ma*or(a'SPC<16)-auaI1a autr* tou 
h*-irORI-8T08BBiNEXT 
32 CI-IN>l£YITl-STeiG(e>IIFCf-ANO 
NJi'EL:iEirCfO-ORT--IIHHt4HI I ICXMG 
48 CLGiA.mT<3BIRN&MB-28a-2BBII1-i 



41 rDRV-2T06iLIHE<e,V>-O9,V)GRI<B>,ElNE 
XTlC0L0PClATTPB8,liLOCAIE8,21!PRlNT'Br. u l 

• f brmiir'i I ATTRB !. 81 L0CATE24.C2I PRINT 
■Ballai'lATTRBB.e 

42 E-VALtLEFT*<et, I ■ > sf - v,,i ,. n 1 (> .' . 1 ) 

HG-VAL(HIDi(B«,3, 1>HB«-RICHT«(BI.9HLE 
FT»<Bt,3) 

43 LOCATEA.BiPRIMT- • i SCREENE, rt LINEC8 
,21>-(39,2l >G0»C3),8IL1«(B, 13)-<3», I3)C 
R»(4),CIB-28IC0LORE!I.OCOTrA,BtPRINTAI 

44 X-A*HY-19tPSET(A»l, 1 9>CR»< B>,GI N-W-l 
iLOCATE21,23ir0RI-8T0N-liPRIKIGRI(e>I- • 
Iil«EXTIPRIRT5PC(lfl-2«M>i i D--1 lO 1 -2tlNT< 
2»PNOJirORl-8I040A!Nl.yl!&0102B 

38 CLtAR,,6.DEn»Tn-Zi[:L5iT>Cfir£N?,l,aiAT 
TRB1, 1 1 LOCATE I 3, 18, 01 PR I XT MEH6ALL*« ATT* 
B8,0:A-0iB-eiX-8iY-piH*0tV0iT-0iC-BtO«0 

31 DErCR»<0>-60, 126,253,233.233,233,186. 
60 

32 C>EFCR(<I)-31, 31, 31, 8,8,0,8,0 

33 DCFCR«(2)-233, 233, 233,0, 0,0,8.0 

34 uEFGRi<3W«B,24n,£4e, «. 0.0,0,0 

33 DErCRt<4)-B,0, 0,8,24,24, 24,0 

36 OErGRt(3)-24,24,24,0,0,0,0.0 

37 At-CRt(l>*GRi<2i>Cfll<3n»t-*417741IJ4 

34 7* 

38 LOCATI0.14IPR1NT* Voulax vout lit ra« 
Ita <hi jau<0 ou M)7-iC*«1NXEYiii-|.niFC 

• -•MME«(39ELSEiri:t"*O-C0TO*l 

39 L0CATE0.14IPRINT- Pour daaarrli- a»P 

la bouton -ACTIOH-'SPCC 1 1 > 'da la MMtt 

a da jau.' 

60 C4-INKCYtiT-STRIG(0>l IFCI-* 'OHI THEN 
rORM-OTOI HOOia0IL-RN[>INEXTICrjTO4flr.LSr«0 

61 CLSIPRINTiPPINIiPRIN1<iPC<9>"0n diaaot 

• da I* ba11t«'SPC<13>'pour brtaar loi 2 
08 bou1aa.-SPC(33>-La ra*uatl« «a daplac 
a'SPC(8>' aur 1* Inn infarlaur du jau 

araca*9PC(4)'au aan<h« da la aanatla da 
j«u droit!.' 

62 PR1«TBPC<3)-En ap^u*ant iur la bouton 
-ACTI0N--SPC(3)*on doubla la uitaaia da 

l.-l .. .....1. • I PR I Mil PR INT' '■■• la 



63 PRINTiPRIHT' 



I ill 



MC«7 



64 P»INHPRmT6PC<4)*P0UP , 

iur la lou(h«T.PC< 11 )'d'a»» 

r oriiON'iCOTOftO 



suite do ta page 10 



GOUPH- 



«S0 N-3 i OOSUC 1200 . COLOR CiREK -- « N ■ .our <]• 1* coul 

43*0 IT LEHIMdllaO THE* IfOI ELSE II*fMI IVALIM 1 1 » 1 1 

1212 II L 2«5V'"*0 "CN ta»0**2S3>Xt ELSE »?-f N«(VAL IR» II) I) 

!~ i'„ LO " W<J>| -0 ***" V*OV B.SE V^NVIVM.IM<3»| 

45S0 PLOT l|,v TO 12, V 

4*00 IF LEMiftt 1411*0 TMEX OOTO 4*30 

**10 F-V«i.<M(4ll 

**» FOB II-U TO 12 STEP P 

«*» f\OT U.T-1 TO Il.v.i 

4*40 NEIT II 

4*30 COLOR CC 

♦aao nram 

4*80 wn 
449© REM 

3000 REM . 

90I« KM AXE v 

3020 RCT 

3030 REH 
3040 REM 



3090 

3200 

5210 

3320 

3230 

3240 

3300 

3310 
3330 REM 
33*0 REN 
MOO REM 
6010 REM 
6020 REM 
6030 REM 
6040 REM 
6030 t 



N-3 ■ IDM 1200 . COLOR C . REM - . lu , )air d< ,„ coul „ 

IF LENIRSUM-O THEN Y1-0V-233/KV ELSE TlfXYIVfiLIRSU)) I 
IF LEN(M(2>)-0 THE* V2-0V ELSE Y2-FMY ( V*. I R« ( 2 ) 1 ) 
IF L£Ntft*Ull-0 THEN t-Ol ELSE <-FX» (VftL(R»(31 ) ) 

plot i,vi to i,v2 

if lek(r«{4))-0 then gotd 3300 

P-VflL(Rtl4)l 

FOR IY-Y2 TO YI STEP P 
PLOT X-l.IY TO K'l.lY 
NEIT ]Y 

R£TUR^l^ C:C,R£,, ~ '•***• d * '• ""Itur cour»nt» p*r d»**ut. 



GRAND PRIX fx 702 p 



Conduisez votre bolide dans le brouillard. la pluie. de 
nuit comme de jour et si vous arrivez au bout de la 
course sans scratch, !e magnum de champagne et le 
podium du vainqueur sont a vous. 



JEAN-LUC GIRARD 



MODE D'EMPLOh 



6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6130 
6200 REM 
6210 REM 
6300 PEM 
6310 REM 
6320 REM 
6330 REM 
6340 REM 



PRINT -PARAMETRES DE LA P1.UHE (OU POINT COURANTt- 

PRINT TABtmt'lO - -ItO/KfOl 

PRINT TAB(N)i-v0 - -[OY-YO/KV 

PRIMT TA8(mi-Ccwl«ur - -[COStCC) 

H-3 

PRINT i PRINT -EDCLLES i" 

PRINT TAB(H>|-HorlivitaU [> 

PRINT TAB(nit*Vwtlc«l* (y 



FULL POKER 



N'jntroduisez plus de pieces dans la machine a poker 
de votre bistrot habituel. Tapez ce programme et jouez 
chez vous, tranquille ! 

F. PETIT 

Ce programme est identique au jeu de poker qui (leurit dans nos 
cafes. On joue seul contre I'ordinateur en essayant de gagner un 
maximum de points. Vous pouvez miser de 10 a 100 trancs. 
M pour miser. D pour distribuer. touches de 1 a 5 pour effacer !es car- 
tes que ton desire changer (A pour annulation de cat effacement) et 
encore une fois pour le tirage complementaire. Vous pouvez 6ga 
lement appuyer sur S comme "servi" si les carles obtenues au pre 
mier tour sont gagnantes Les gains sont calcules automatiquei 
(ainsi que les pertes) 



La voilure est representee par un n Les bordsde la route sont repre- 
sents par ■ en temps normal, done • -• • indique que vous etes sur 
une route en ligne droite 
(J?) indique que des virages approchem. 
...... indique que la nuit est tombee. vous ne voyez plus la route 

que quand vas phares daignent tonclionner. les bords de la route 
sont alors ?4t ? 

???# it h ?? indique que le brouillard cache la route et il devient 
Ires difficile de connaitre la position exacte de celle-cl. car la 
machine n'efface plus les positions precedentes. 
* 4: ■ Y indique que la route. jusque-!a a sens unique, va devenir a 
double file 

En effet. apres un certain temps, le Y se transtorme en O qui symbo- 
lise la piale-bande entre les deux voles, et malheur au conducteur 
qui se trouve sur le O ou a gauche I 

Le carburanl est limite a 60 litres au depart, plus on roule vite. plus 
on marque de points, plus e'est dangereux. et plus on consomme ! 
is I < indique que ton peut sortir de la route dans la direction donnee 
par lafleche<. On peut done (aire le plein a la station-service CASIO 
la plus proche. Pour rentrer sur la route ensuite. attendre 3 I > . II 
apparait de temps en temps un S sur la route qui se transforme en • 
si on roule dessus et qui donne un bonus 
Vous avez droit a deux voitures par course. 
Etendre la memoire des donnees a 36 variables par DEFM 1. Ecnre 
les programmes PO. PI. P2. lancer le programme avec F1 PO. 

"I":6S8 11*111 98 L=K-8«C=C-(II« 

T <S'3e3+I .5)12/9: IF 08 

58 IF !P-B»<l-pze TffiH 38*198<V 

THEN 188 95 WIT 56:PRT - 1E 

55 S=$-t5W4:STIil Uf TFF":60T0 18 

H 5 

M IF W.m CSR 188 WIT 58:PRT CSR 

8;l;C;:|FC4 T 8:"CRItSCH!";CS 

HEH 95 R 14MHT S 

£•5 IF KFY="«":P=P* 185 PRT "V.tW:";IH 

VfiR: 36 PUS: 1688 1:6010 85 T <f«*35tl8; "KM 

78 IF KEV=*J';F>=f- H","FUEL: "ill; 

P9t 1244 STEPS I:60T0 85 C:HKT I:60TO I 

18 WIT 58:PRT "6R 75 IF KEY="-'ilF L 2 

«HD PRIX CBSIO" iH>8;N=H-l:80TO -38 CRT CSR PiViC 




.tlRBRD JL" 85 

28 S=8fF0R 1=8 TO 38 IF KY="/"iK* 

liSflC :y=|:K=l3 ::IFN;6;H=6 

:P=K-2:W!T 8:C 85 K=IHT (RRWiJ-l 

=M:im=K-8»H IHMKIF (K-18 

38 PRT CSR Kl'flC ;«K-8»H)»;HHI 

SR LiTiCSK P; =K=K*2«H 



SR KiTiCSR L; 

"?";CSR Sit; 
235INNUIF RftHK. 

l;Mc«H»88:S=St 

UiPRT ",U;:60T 

038 
268 GOTO 58 



■-■> if mm no 

38 
335 m CSR Pi'f;C 

38 K-2;MiCSS I 

;'t";CS* L;T 
348 IF P>K-2 THEJ 5 

8 
358 IF (»=■$•;«=•• 

»:S=S»158«(Ht|) 

:»TI (I 
368 B=18*I(n (ItflKK 

658»tl:S=Stfl;PRT 
CSR2!H;:S0T0 

39 
438 PRT CSR P:-f ;C 

SR K;"t";cSR i; 

'f;CSR LtTiM 
435R=R-|iIF R>XTH 

a si 

448 IF R=x;8$=*0":6 

0T0 58 
458 IF PiL»T THEN 1 

86 
468 IF R±e;t)=88*T*H 

•XiPRT CSR 8lU! 

:S=S*U:60T0 38 
478 SOTO 58 
538H=tH:lF H>-1 T 

HEN 578 
535 IF RSNI>.9;UHI 

•H>!88:S=SHI:PR 

T INT U;:SOTO 3 

8 
558 »K-II:|I=1HT (Rfl 

Ht*5-2sK=K*H: IF 
(K-I8)«(8-N-X< 

e;K=K-2*H 
568 l=K-8«N 
578 PRT CSR U'(";C 

SR P,"T;CSR K; 

")"=60TO 58 
638 IF U2;t=H+l:L= 

632 IF R=9 THEN 698 

633 R=R-l;IF RiSlIF 

P£L THEN 658 

634 IF R=8 THEN 38 
637 PRT CSR P;T;C 

SR Li'l'iCSR X; 

"<";CSR X-4;ll; 

C 
648 IF P>X THEN 188 
645 60T0 65 
658 PRT CSR P;V;C 

SR l;"f;CSR X; 

"t":CSR INT <U 



655 IF f=I«T <l/2i» 
i="":;=St99:C=C 
»5:H=mi:IF m 

657 IF Ci4*C48 

sa ■■■- ta x-jiiK 

CMFPR TIB I 

M 
678 IF RIHH2K-3-II 

-JilM:t=IIO (R 

HNJH 
675 SOTO 65 
6»mCSJL;'!';C 

a Pi'fica x; 

•>":1F Pit THEN 
IH 

7M W-l:|F W;6S 

8 11 
718 GOTO (5 

PI: 185 STEPS 
5 t=8:60T0 KfW4*l 

8<18 
18 y=2:R=l:t=":RE 
T 

11 MllellfMN 

Itttttttillltil 

"tREI 

12 Y=6:R=INT (RAMI 
•3t3:K=l:ftl="C* 
:t="CftSIO-:R£T 

13 Y'ltMr-J-tKI 

14 Y=4:H$=T:R=Nt 
ItX:T=lHT (RANI 
•3»I:R0 

15 Y=5:H*3»1 

16 RET 

17 RET 

18 RET 

19 RET 

P2: 139 STEPS 

1 IF S<H8 THEN 8 

3 FOR H=6 TO 8 ST 

EP -2: IF fl(R)'S 

;8(flt2)=fl(ft):fll 

(fl»3)=RJ(IW):N 

EXT fl 

5 H(Rt2)=IHT SilH 

P •mr.flKM) 

8 FOR 8=8 TO 8 ST 
EP 2:PRT R/2M; 

")"ifl(H) R 

t(R4|)iKEXT R 

9 STOP :6OT0 18 



SP 




154.5 


If 






























1555 


LET 


»«IWT 


i'lflMV.i 4-1 



15«« LET !»m-.»$I.., 

I56S rOR J»l TO 8 

1578 IP i i j THEN GO TO 1BBB 

XS7S IF t|U).l|IJI TMCN QO TO 

S4B 

L3SB NEXT j 

isss roR i<i to e 

1598 PRINT RT 9*K,C-a, PRPER 7; 



40ae PRINT RT 7,0, FunSM 1, 

I" 

•teas oo to aeee 

soee rem **••**(•*•*** 

5oes rem «nr>u uuun ■ 

5010 REM •llllillllllt 

SOIS PRINT RT »,0; ■erFRCEn" 

NT "OI5TRIBUBR" 

seae print rt a,o, plrsm i. 

LER" 



PR I 

■IINNU 



3«S PRINT RT 9* 



. i; ■■ 



10 REM f<IU-pnl»r 










20 REM © F. PETIT 






as REM 1983 






30 REM 












4.0 QO SUB 6000 CREDTT 




AS BORDER 1 PRPER 1- CI 




S0 PRINT PRPER 0: 












55 PRINT RT 9,33, 




































70 PRINT PAPER 0, 


INK A 


**»»•■>• 



car les 



78 ink. e 

B» PRINT RT a,2S, "FULL 18" 

88 PRINT TR8 32, 'CDULEUR 8" 

90 PRINT TRB 22; "OUIWTE 6" 

98 PRINT TRB 33, "BPCLflN A" 

100 PRINT TRB SS.-S PRIRES 3" 

10S PRINT RT A, to; "MISER- 1 

118 PRINT ; "eFFBCER" 

115 PRINT , "OISTPIBUCR-- 

IBS PRINT ; "SERVI" 

138 PRINT ; "flMHULER" 

130 PRINT RT ai,l;-MISE 1 " ; RT 

ax, ia; ■ credit 



aee rem 

205 REM 
2 30 REM 
a IS LET 



mu 



pi e ces » 

LET ■ 1 ■ J. LET Ct 
FLRSM 1, ••INT 



390 NEXT i 

500 REM »*••* 

S0S REM tin 

310 REM ••••« . . . 

SIS PRINT RT A, O, "MISER" 

^?n fSi 1 ^ RT 6 ' a - "DISTRIBUER" 

- ?2 - ET ._ Cr=<:r ~* i : UET CO-SB: LE 
T C| 3 5TR| cr . PRINT RT 21 , 18; "CT 
EDIT"; TRB (CO -LEN C ft) ; " "; c» 

538 LET c=3 

5*0 FOR i »1 TO 8 

3<5 LET l«IMT IRNOI1I *1 

550 IF l-l OR t. *2 THEN LET d < i ) 

-a 

555 IF 1*3 OR I -A THEN LET dlii 
-8 

560 LET 

365 LET 

570 LET n'il 

575 FOR j-1 T 

S80 IF i «J TH 

585 IF t * t i ) « 
43 

590 NEXT j 

S9S FOR t*l T 

600 PRINT RT 
INK 8; " 

605 NEXT ». 

6 10 PRINT PRPER 7; 

11, C, 4ft t ) 

615 PRINT RT 13, C, 



1605 PRINT PRPER 

13, c; bar*) : beep 

1610 LET «=C46 

1615 NEXT I 

2008 REM •»»>••• 

2985 REM gslns 

2010 REM *»*...! 

3B1S LET i =o 

3BS9 IF t t I 1 , 1 1 r, 
.11 'UI3.il RND 

RNO I * ! 1 , 11 -\% <r. 

0: GO TO 3399 

aeas if it u,2i>t 

2830 ir tf (1,21 >l 



INK 
INK 



2833 IF 
• ••41 

20*0 IF nil,? 



3) -t« IA 



i.,c-a; PRPER 7; 



NT RT 19, t. , 



33« PRINT RT 14. , 7 
ROOUTSEZ PIECES" 

225 INPUT CC 

230 IF cr-18 OR C r > 180 THEN PR I 
NT RT 14., 7; FLASH ll - PIECE* RE 
FUSEES PRINT RT 19 , 11, FL*»SN 

l; "RCCOMMENCEZ" : OO TO 325 

335 PRINT RT 14,7, " 

PRINT RTT 19.11; " 



• I fttttcn t 



• c» 



t * «str « cr 
5IT";TR8 tc 



PR I 



300 REM .r.llffl 

385 REM lilt * 

310 REM . t . * , , t * 

318 LET CO=7: LET *i=l 

328 PRINT RT 5 , O, " EFFRCEP' 
NT RT 7,8, "SeRUI" 

338 PRINT RT *,e, FLRSH 1,'MISE 
R"i PRINT RT 6,0, FLRSM l,"OISTR 
IBUER" 

338 OO TO 34-0 

338 LET » x -■ > • ' 

34.0 LET CtsSTki b. 

34S PRINT RT 31,1,"HJ1; T 10 (C 

O-LEN C »> ; •' "; £ t 

358 IF ■i>10 OR t.icr THEN LET 
»t-l: LET CC-STRS Bi PRINT RT 3 
1,1; "MI5E ", TRB (CO -LEN C«l ; " "; C 
• 

388 FOR i*l TO 38: NEXT 1 

368 IF INKEY|i"" THEN GO TO 38« 

365 IF INREY«»"t" THEN CO TO 33 



d (• J ; bf 

630 PRII 

e; ( : SEEP 

6 25 LET C - 

630 NEXT i 

1000 REM ** 

1888 REM 

10 10 REM 

1015 PRINT RT S,0, 
CER" : PR INT FLRSM 

1030 LET <!••*•■ 

1035 LET (1-8 

1«3« IF INKEY»."S" 
80 

1038 IF XMKEV«-"1-- 

"■ V»(l- 

xr I 



INK d (i ) ; RT 

PRPEP 7; INK 

PRPER 7 INK 



tfd.i; 

, i» THEN LET *nl 

t*(3,3l THEN LET 

at THEN LET 

3) THEN LET 

at THEN LET 

aS*S*i> icia.ai *t»i3,3i then let 

• ■•4-1 

aeso if i.(ia.?i^.*!*,-i 

• ■8 4-1 

38SS IF I«l2,3)>t|l3,2) 

a-4 + i 

aece if 1*13,31 -t|(*,si 

4^4 4-1 

aees ir ti i3,3)>u<b,2j 

4-4+1 
2878 IP l. * • a , ;■•■> - t % c, , ;> i 



4=4 41 



THEN LET 

THEM LET 

THEN LET 

THEN LET 

THEN LET 



INKEY»« '2- 
. 13) «dt 
IF INKEY»«"3' 

V» (31 -d{ 
IF INKEvi-"'*- 
vji.li >d(> 



1040 
LET 
1045 IF 

LET 
10S0 IF ' 
. LET 
1085 IF INKBYfa-'t 

I ET W|(5I =--I« 

IF INKEY|>"c 

ue 

1068 IF INKEY|«'I 

ee 

1078 



THEN GO TO 4.0 

THEN LET *»!; 

THEN LET «»?: 

THEN LET «a)L3) 

THEN LET •■10 

THEN LET «>3B 

THEN CIO TO IS 

THEN GO TO 80 



3210 FOR I -1 

331B FOR J»l TO B 

3830 ZF j>l THEN OO TO 3930 

3338 ZF CODE (|(l ,3) iCODE t*(J,3 

1-1 THEN LET b«b+l 

2230 NEXT j 

2235 NEXT I 

2300 LET SCO*0 

2SB5 IF iiB THEN LET fiCO»50*Bi 

3310 ZF 4-4 Tin:- LBTT -.'TO-l«i»l 

2315 IF 4a3 THEN . V -,co-**.i 

3838 ZF 4-2 THEN LL I ua.aul 

2338 IF 4-18 THEN LET iCOiQIli 

2330 Xr b-4 THEN LET Sca.ftMl 

3333 IF 4-10 RND b»4 THEN LET *C 

, 1 !rtt; I » , 

2540 IF umO THEN CO TO 3800 

3348 FOR 4-1 TO tCO/3 

35S0 LET (f.tfiS 

3335 LET C*iBTR| Cf 

2888 PRINT RT 3 1 , 18, "CRED IT " . TRB 
'", C«i SEEP 0.04,3 



.. _d» THEN (JO TO !5»4» 
3040 GO TO 6878 
S045 FOR •.■! TO B 

SB58 PRINT RT 94t,C-S, PRPER 7;" 
58BS NEXT 1 
5060 PRINT RT 11, C. PRPER 7, INK 

d(tl:t»I. .11 
8088 PRINT RT 13, C. PRPER 7, INK 

dio;tiii ,3i beep a.as.n 

3070 LET VtllUltd I 

S07S LET CmC 46 

SBBU NEXT 1 

r .BBS PRINT RT 8 ,0, "RNNUI-Bf." 

^090 OO TO 1008 

6BBB REM .,.,... , ■ 

1=085 REM <Hliin (,»Mn t 

68ie REM HKMIIIII.MH 

6015 FOR I =U3R "0 " TO U3R *'4"47 

B038 READ 4 POKE I , 4 

G03S NEXT f 

6839 ORTR 8 ,68 ,838 ,884 ,384 . 13* ,6 

6 , 16 

603S DftTR 34 , 60, 188,333,255 , 138 , 

60 .34 

6U40 ORTR 60,60,34 ,319, 35'J .219 ,3 

4 ,60 

6048 ORTR 34,60.136,355.333.310, 

24 .80 

6058 ORTR 60,68,86,0,80,64,64.13 

8 

6833 DRTR 80,66,66,88.3.3.66,80 

6080 DRTR 13,30 , 36 ,68 ,6« . l;-r. 4,4 

606S DRTR 136 ,64,64 , 124 .£l .66 .66 , 

60 

6070 DRTR 60,64,64,134,66.66.66, 

. 1C. 33,33 
, 66 , 66 . 66 , 6 

6085 DRTR 60,66,66,66.60,3,8,80 

6090 DRTR 191 , 161,181 , 181 , iei , 18 

1 . 161 , 191 

6098 ORTR 66,86,68,66,86,66,36,3 



4 






130 




















DRTR 




66 
















inlliiuuf mu • 



370 IF INKEVt- 


375 IF INKEYt < i "• 
d" THEN CO TO 360 

380 FOR 1 -1 TO S 



THEN GO TO 38 
OR ENKtrVt) < > " 



F « B0 THEN GO TO 1030 

iM-o r'OR i -1 TO 8 

1000 PRINT RT 94i,<t; PRPER 1 

1085 NEXT 1 

1090 OO TO 1038 

1500 REM Illtxiixi 

1S03 REH I i i-49« 

1310 REH *••»■. 

1313 PRINT RT 5 

NT 'DISTR IBUER" 

1530 LET C -3 

1838 FOR i=I TO 8 

1530 IF V*<l>*d» THEN OO TO 

1535 GO TO 1610 

1540 LET i b TNT IflMOUi.l 



(CO -LL.. 
■-,(-,-. NEXT 
,>O00 IF e 
1000 REM 



BB1S DIM 

[)02B DIM 

i. UPS DIM 

00 I" D Hi 

(1035 DIM 

E1040 LET 4»( 



3O05 REM 

3010 REM • ■ i 

3015 FOR J-1 TO 

3030 PRINT PAPER 



THEN CO TO 318 

•IIIIIIIHIM 

n d< p«rti« * 



40 LET 4* ( 1) -"** 

4S LET 4* (3) -"* 

SB LET 4t)(3) -"* 

SB LET .1*14) -"* 

60 LET (.fill ■"S 



bf 111 -■ ■ ji- 
bs (31 ■"9 1 
b* (31 -■ 3' 

,1,,, | 



co»p i«««n utr< • 
MtlimiinnH 

0; "EFFRCER" : PRI 



3833 PRINT RT 16,7,' 

0" 
3840 OO TO 318 
4(308 REM MIHMI 
4005 REM SSf-Vl t 
4010 REM ■•••••<! 
4018 PRINT RT 8,0, "t 
NT "DISTRIBUER" 



Nil 

H070 

3078 LET 

IBOO LET b* (31 

O083 LET bi (61 

6890 LET b« (71 - 

•J093 LET b*<8> - 

8180 LET b* (91 - 

8108 LET h* ( 101 

8110 LET t.% (1 1 1 -" 

BUS LET bi I 131 -" 

8130 LET h» (131 -" 

8138 RCTIIRN 

8800 CLL.ni) SRUH 

ine ie 

0000 STOP 




• FREDERIC ZATAAA - 



"VOULEZ-VOUS D€3 EXPLICATIONS- 




BASIC ETENOU 



CC-2 It DD-2 



CALL C 






MISTER FROG 



Pauvre petite grenouille, se fera-t-elle ecraser par un 
camion petaradant ou par un bolide de course? A 
moins qu'elle ne finisse ecrasee par un tronc d'arbre ou 
noyee dans les tourbillons de la riviere? 

Frederic ZATARA. 



Ce programme, en basic etendu. est d'une rare qualite : ires proche 
des icutdecafe 'II propose 3 niveau* deditficulte's.unatfichage per- 
manent du score et un excellent gtaphtsme A vos joysticks I 



3© REM IIM Illll 

60 REH • • 

70 REM • Mr f ROGG • 

HO REM • • 

90 REM •••••••••••••••••••• 

100 REN • PAR • 

110 REM • TI 99/4A • 
• • ft JOYSTICS • 

111 CALL CLEAR ■■ DISPLAY AT (12, l)i 

112 ACCEPT AT114, 1 4) VAL IDATE ( -OUIN' 

113 IF X4O-0UI" AND X«O*N0N' THEN 112 

114 GOTO 31000 
113 RANDOMIZE 
120 CALL CLEAR 
130 SC-0 ll NG-3 ii X-169 ll Y-113 it AA-2 ll 88-2 I 

170 CALL CLEAR 

171 CALL CHAft<4O,-0OO30lO1010IOIO0-)ii CALL CHAR <4I , -0O0OOO0I030404OE" 
HAR(42,-ieB03C3C18FFFFFF->ti CALL CHAR 143, "7E7E7EFFFF7E00") 

172 CALL CKAR{44,-OOCOeOeOeOeOeOOO'ln CALL CMAR(43, "0000008OC02O2O70- 

173 CALL COLOR (2. 4, 3> 

190 CALL CHAfl(88,-FFFFFFFFFFFFFFFF-> 
190 CALL CHAR(96,-FFFFFFFFFFFFFFFF-) 
193 FOR 1-3 TO a ll CALL COLOR ( I , 16, 3) i i NEXT I 
200 CALL COLOR(B,9,1) 
210 CALL SCREEN(13> 
213 CALL COLOR(l,3,3> 
220 CALL COLOR (9, 2,1) 
230 CALL HCHARd. 1.88,32) 
240 FOR 1-1 TO 32 STEP 7 
23© FOR J-2 TO 3 
26© CALL HCHARCJ, 1,88,4) 
270 NEXT J ll NEXT I 

280 FOR 1-13 TO 14 ■■ CALL HCHAR ( I , I , 88, 321 t t NEXT I 
290 CALL HCHAR(22 t I, 88, 32)11 CALL HCMAR(23, I , 88, 32) 
300 FOR 1-13 TO 21 I I CALL HCHAR C I , 1 , 96, 32) 1 1 NEXT I 
303 RESTORE 343 
310 FOR l-lOO TO 140 STEP 4 
320 REAO A4 

330 CALL CHARd, A«> 

340 NEXT I 

348 DATA -0O0C3AO71F00XXX>000O00O000306O303000O00B©C0C0C0C0C0C2C4C8FEC73FFF" 

33© DATA , *OI3B13131UF1FOF0707071F3F2720E080DCC8C8B8FBF8FOEOEOEOFBFCE40407",-OOE 

0273F 7FFFFFFFFFFFFF7F3F27E000000CE2FAFEFAF AFFFFF AF AFEFAE20C * 

360 DATA *071B204F3097A4A8A8A497304F201807FF7F1FCF2FA797373797A72FCF1F7FFF- 

370 DATA -FFFF83FFFFF8FFFF0FFFFFFBFFFFFFFFFFFFFEFFFF0FFFFFC0FFFF1EFFFFFFFF" 

380 DATA -FFFF07FFFFFOFFFFFCFFFF1FFFFFFFFFEOFBFCFEFE1FFFFF3FFFFF0EFEFCFBEO* 

390 DATA •0OOOOOE0E0434FFEFE4F43E0E0OO0O0O0FOF0F0606FFB7373787FF06O6OF0F0F* 

400 DATA -0OF82O7F7FEFCFCFCFCFEF7F7F2OFeOOOOOE04E4F49E9F9F9F9F9EF4E4040E00* 

401 DATA "1F1FO47FFFFOE0E6E6E0F0FF7F041F1F7C7C1OFFFFF060666660F0FFFF107C7C- 

402 DATA -0OOOOOFFFFF06O6666AOF0FFFF000000O70701FFFFF060666660F0FFFF0 10707* 

403 DATA -COC00080E3E37F7F7F7FE3E38000COC07C7C10FEFFF3F3F3F3F3F3FFFE107C7C- 
410 CALL MAGNIFYI3) 

420 CALL SPRITE <«1. 128,11, 131, 1,0, 7»LEV) 

430 CALL SPRITEC«2, 128,10, 131 , 23,0, 7»LEV> 

430 CALL SPRITE(«4, 128,6, 131, 138,0, 7«L£V> 

470 CALL SPRITE(46, 124, 10, 133, 23,0, -104LEV) 

480 CALL SPRITE(47, 124, 3, 133, 1 14,0, -10*LEV) 

490 CALL SPRITE (48, 124,6,133, 138,0, -10»LEV) 

3O0 CALL gPRITE(89, l04,4,X,Y)tl REM •FROGGER* 

310 CALL SPRITE (til, 108, 13,79,23,0, 10) 

3TO CALL SPRITEI412. lOB. 13. 79.49. O. lO) 

330 CALL SPRITE1B13, 108, 13,79,73,0,10) 

340 CALL SPRITE(f>14, 108, 10,43, 1,0, 3*LEV) 

330 CALL SPRITE(«13,10a,l0,43,23,0,3»LEV) 

360 CALL SRRITE(»16, 108, 10,43, 169.0, 3«LEV) 

380 CALL SPRITE(f*18, I 12,7,61. 1.0,-3»LEV) i i IF LEV-1 THEN CALL HOTION(41B. * . -9 > 

390 CALL SPRITEI419, 116,7,61. 16,0, -3»LEV> I t IF LEV-I THEN CALL MOTION' .9,0,-9) 

600 CALL SPRITE(»20, 120, 7, 61 . 31 ,0, -3«LEV> I I IF LEV-1 THEN CALL MOT*" .i»20, 0,-9) 

610 CALL SPRITE («1. 1 12, 7, 23, 1 ,0, -8»LEV> it IF LEV-1 THEN CALL f~ .0N<*)21 ,0, -10) 

620 CALL SPRIT£(»22, 1 16. 7, 23, 13,0, -8«LEV) i i IF LEV-l THEN CA* . nOT ION 1*22,0, 

630 CALL SPRITEI423, 120. 7, 23, 29,0, -B*LEV; 

640 CALL SPRITEC43, 140. 14, 113.28,0,9»LEV 

6SO CALL SPR1TE<»3, 136, 14, I IS, I4,0,9*LEV 

660 CALL SPRITEIVIO.132,14, 113, 1,0,9«LEV; 

663 IF LEV<>2 AND LEV02.3 AND LEV<>3 THEN 700 

670 VITLIB-INT(3»RN0-1)I I IF VITLIB-O THEN 670 

680 CALL SPRITEI423. lOO, 16,97, 13, O, VITLI8»LEV»3) 

700 DISPLAY AT (24, 1 1 I "MR FROOGSi - 1 NGl " SCOREt ■ I SC 

703 CALL POSITION(»9,LIG,C0L) 

707 REM • IF COLOl OR COL >24 1 THEN 20000 

710 IF LI8<24 THEN lOOOO 

720 IF LIG<96 THEN 2000 

730 IF LI8>168 THEN 1SOOO 

740 IF LI8>96 THEN 3000 

730 GOTO 700 

2000 CALL JOYST(2,OX2.0Y2> 

2003 CALL POSIT ION (•9.LIQ2.C0L2) 

2010 CALL COINCIALL.CO) ; ! IF CO-0 THEN 20000 II IF DX2-0 AND 0Y2-O THEN 2300 

2020 IF 0X2-4 THEN CALL SOUND < 10, -3,0) i i GOTO 2300 

2023 COLL P05ITI0N(49,LIG2,COL2) 

2030 CALL COINCIALL.CO) i i IF CO-0 THEN 20000 

2040 IF 0X2—4 THEN CALL SOUND ( 10,-3. 0) 1 1 GOTO 2300 

2043 CALL POSITI0N(*9,LIG2,C0L2) 

2030 CALL C0INC(ALL.C0)ii IF CO-O THEN 20000 

2060 IF DY2-4 THEN X-X-18 ll Y-COL2 it CALL LOCATE (»9, X, Yt I t CALL HOT 10N(49, 0, 01 

ii CALL SOUND (3. 300, 2) l I SOTO 23O0 

2063 CALL POSITION(»9,L1G2,COL2> 

2070 CALL COINC(ALL.CO) I I IF CO-O THEN 20000 

2073 IF DY2-- 4 THEN X-X*1B ll Y-C0L2 li CALL LOCATE (99, X, Y) i i CALL MOTION (49, 0,0 

In CALL SOUND(3,300,2)ll GOTO 2SOO 

2300 CALL POSITI0N(f>9,LIQ3,C0L3) 

2310 IF LIG3>-79 AND LIG3<96 THEN CALL MOT I ON (49,0, 10) ■ ■ GOTO 700 

2320 IF LEB3>-61 AND LIG3<78 THEN CALL MOT I0N(49, 0, -3»LEV) 1 1 IF LEV-I THEN CALL 

MOTION(49,0.-9) i i SOTO 700 ELSE 700 

2330 IF LEB3>-43 AND LIB3<60 THEN CALL MOT I0N(»9, 0, 3»LEV> 1 1 GOTO 700 

2340 IF LIG3>-23 AND LIG3<42 THEN CALL MOTION (t>9, 0, -8»LEV) 1 1 IF LEV-l THEN CALL 

H0TI0NI49, 0,-10) I I GOTO 700 ELSE 700 

2330 GOTO 700 

30O0 IF COL>-249 OR C0L<-9 THEN 20000 

3002 CALL J0YST(2,DX,DY) 

SOOS CALL COINC(ALL,COINC)i i IF COINC— 1 THEN 20OO0 

3010 IF DX-4 THEN Y-Y-fl ti CALL LOCATE (t)9, X , Y) t t CALL SOUND <3, 300, 2) i i GOTO 700 

3020 CALL COINCIALL.COINC) n IF COINC— 1 THEN 2O0O0 

3030 IF DX— 4 THEN Y-Y-9 it CALL LOCATE (49, X , Y) I i CALL BOUNDtS, 300, 2) I t GOTO 700 

3O40 CALL COINCIALL.COINC) I I IF COINC— 1 THEN 20O0O 

3030 IF DY-4 THEN X-X-18 ll CALL LOCATE («9, X, Y) I I CALL SOUND (3, 30O, 2) ■ ■ GOTO 700 

3060 CALL COINC(ALL,COINC)li IF COINC— I THEN 20000 

3070 IF DY— 4 THEN X-X-1G n CALL LOCATE (49. X, Y) i i CALL SOUND (3, 300,2) f ■ OOTO 70 



IF LEV-1 THEN L.ALL MOT I ON (423, O, -101 

IF LEV-I THEN CALL MOT I0N(43,0, 13) 

IF LEV-1 THEN CALL HOTI0N(»3,O, 13) 

LEV-I THEN CALL MOT I0N(»10. O, 13) 




3O80 CALL COINCIALL.COINC)! I IF COINC— I 

3090 GOTO 3000 

1O0O0 ! aARRIVEE A LA SERGE* 

10OI0 REM 

10020 IF (C0L>-23 AND C0L<-49)THEN AA-AA-I i 

J 0030 IF (C0L>-81 AND C0L<-I03)THEN 8B-BB-1 

I0O40 IF (C0L>-I37 AND COL<-161 ) THEN CC-CC- I 

lOOSO IF (C0L>-193 AND C0L<-21 7) THEN DD-DD-1 



rWN 20000 



IF AA-0 THEN 20000 ELSE 1 1000 
i IF BB-0 THEN 20OOO ELBE 11300 
ii IF CC-0 THEN 20000 ELBE 12O0O 
ii IF DD-O THEN 20000 ELSE I 2SO0 



TI-99 4/A 



CALL SPRITE(49, 104,4, 



CALL f«CHAR( 



I0073 BOTO 20000 

IIOOO CALL DELSPRITEI49) ll 1-169 n 1 

UND( 10,300,0) i i SC-SC*IOO 

11010 IF SC/600-INTOC/600I THEN N6-MG* 1 ll CALL SOUND (60O, -4 , O) 

11020 IF SC/i0OO-INT!SC/10OO>THEN SC-BC*3O0 ll CALL SOUNDOO, 1 10,0 

11100 CALL HCHARI2,3,40) I I CALL HCHAR(3, 3, 41 > i i CALL HCHAR(2,6,42) 

3.6,43>ll CALL HCHAR (2. 7. 44) j ] CALL HCHAA<3, 7, 43) 

II HO GOTO I4O00 

11300 CALL DEL5PRITE(«9)i ■ (-169 || Y-113 ll CALL SPRITE (49, 104, 4, X , Y) I i CALL SO 

UNDd0.3OO.OH i SC-SC*100 

11510 IF SC/600-INT(SC/6OO)THEN NG-NG*I ll CALL SOUND <600, -4,0) 

11320 IF 5C/10O0-INT 15C/10OOI THEN SC-SC*300 ■■ CALL SOUND < 30. 1 10. 0) 

11600 CALL HCHAR (2, 12,40) It CALL HCHAR (3. 1 2, 41 ) 1 1 CALL hCHAR(2, I 3, 42) 1 1 CALL HCH 

Afit J, 13,43111 CALL HCHAR12. 14,44) i i CALL HCHAR ( 3, 1 4, 43> 

1 1610 GOTO 14000 

I2O00 CALL DELSPRITE(49)i i X-169 it Y-113 II CALL SPfll TE (69, 104, 4, I , Y) ■ I CALL 80 

UNDtlO.SOO.O) it SC-SCIOO 

12010 IF SC/600-INT(SC/600)THEN NG-NG* I ll CALL SOUND (600, -4,0) 

12020 IF SC/100O-INT1SC/1OO01THEN SC>SC*300 II CALL SOUNDOO, 1 10, O) 

12100 CALL HCHAR (2, 19,40)11 CALL HCHAR (3, 19, 41 ) i , CALL HCHAR<2, 20, 42) I 

Afl<3, 20, 43)11 CALL HCHAR<2. 21 , 44 I 1 1 CALL HCHAR (3, 2 1 , 43) 

121 10 GOTO 14000 

12300 CALL DELSPRITE(49) ii X-169 ii Y-113 ll CALL SPRITE (49, 104. 4, t . Y >i 

UNDdO, 300,0)1 I SC-SC100 

12310 IF SC/600-INT<SC/600)THEN NG-NG* 1 it CALL SOUND (6O0. -4,0) 

12320 IF 5C/100O-INT<SC/10OO>THEN SC-SC*300 it CALL SOUND 150. 1 10. 0> 

12600 CALL HCHAR(2,26,40)ti CALL HCHAR (3.26, 4 1 ) I I CALL HCHAR (2, 27, 42) 1 1 CALL HCH 

ARI3, 27,43) I I CALL HCHAR<2, 28, 44) 1 1 CALL HCHAR (3, 28,43) 

14000 IF AA*SB*CC*DD<-4 THEN CALL SOUND (2O0, 262, 2,323, 2, 1047, 2) I I CALL DELBPRITE 

(ALL)ii CALL CLEAR ll AA, BB, CC, DD-2 ELSE 14010 

14003 IF LEV-3 THEN SOTO 170 ELSE LEV-LEV*. 3 It GOTO 170 

14010 GOTO 700 

13OO0 IF C0L>-249 OR C0L<-1 THEN 20000 

13003 CALL J0YST(2,0X1,DY1) 

13010 IF DX1-4 THEN Y-Y-B ll CALL LOCATE (49, X, Y> 1 1 CALL SOUND (3, 3O0, 2) I I BOTO 70 



CALL MCH 



CALL SO 



13010 IF 0X1—4 THEN Y-Y- 



CALL LOCATE(»9,X,' 



CALL S0UN0(3,300,2> 



GOTO 7 



13030 IF DY1-4 THEN X- 



-ia i 



CALL LOCATE(49,; 



. Y) I 



CALL SOUNDtS, 300,2>tl SOTO 7 



00 

13O40 IF DY1— 4 THEN CALL S0UND(3, -3,0) i I GOTO 13OO0 

13030 GOTO ISOOO 

20OO0 ! • PERDU 1 FROG6ER • 

20010 REM 

20O20 CALL SOUND (300, -3,0) 

20030 CALL DELSPR I TE ( 49 ) 

20040 NG-NG-1 

2OO60 FOR 1-110 TO 330 STEP 10 ■■ CALL SOUND ( 10, 1 .0) I I NEXT I 

2O063 IF NG-0 THEN 30000 

20070 X-169 ii Y-113 ll CALL SPRITE(49, 104. 4, X, Y) I i GOTO 700 

3000O ' • f t n d u j »u • 

30010 REM 

30020 CALL CLEAR 

30O30 CALL DELSPRITE (ALL) 

30033 CALL CHARSET 

30O40 DISPLAY AT (3, 6) t "VOUS AVEI PERDU* •' 

30030 DISPLAY AT ( 10. 1 1 ) I -SCORE 1 " I SC 

3OO60 DISPLAY AT(20,l)l" VOULEI-VOUS REJOUER (0/N)7- 

3OO70 CALL KEY(0,KEY.STAT)| I IF STAT-0 THEN 3O070 

30080 IF KEY-79 OR KEY-lll THEN CALL CLEAR ll GOTO 31460 

30090 IF KEY-78 OR KEY-110 THEN CALL CLEAR ll DISPLAY AT(12, 12)i"AU REVOIR- ELSE 

30070 
3O10O FOR 1-1 TO SOO it NEXT I tt CALL CLEAR ii END 
31000 ' EXPLICATIONS 

31010 CALL CLEAR ii CALL SCREENdO) 
31013 CALL CHAR (64,-00000000000000-) 
31020 CALL CMAR(91,-FFFFFFFFF0F0F0F0*)H CALL CHAR (92, -FFFFFFFFOFOFOFOF") 1 1 CALL 

CHAR (93, -FOFOFOFOFFFFFFFF- ) 
31030 CALL CHAR(94,"0F0FOF0FFFFFFFFF") it CALL CHAR (93. -FOFOFOFOFOFOFOFO" ) 1 1 CALL 

CHAR (96, -OFOFOFOFOFOFOFOF- ) 
31040 CALL CHAR(97,-FFFFFFFF-)n CALL CHAR (9B, "OOOOOOOOFFFFFFFF" ) I I CALL CHAR(I3 
-0103070FIF3F7FFF-H I CALL CHAR ( 100. -FOEOCOBOFFFFFFFF"! 



31030 CALL CMAR(137,"0103070FtF3E7CF8-l 
LL CHAR(103.-FFEFCF8FOFOFOFOF") 
31060 CALL CHAR(138, -FFFEFCFBFOEOCOBO ■: 
31070 CALL CHAR(lO6,-FOFOFOF0FIF3F7FF" 
" FFFFFFF FO 1 03070F " 
CALL COLORCI, 12. 



CALL CHAR (102. 
CALL CHAR(139,' 



1F3F7FFFFFFEFCFB-I 
■ lF3E7CF8FOEOCOeO"l 



r.n 



•FFFFFFFFFFFFFFFF") 



"707B7C7E7F7F7773717070707O70707OOE1E3E7EFEFEEECE6EOE0E0EOEO 
"7F7F7F7O707O707F7F7F7O707O7O7O7OFEFEFE0O0OOOO0C0C0C00OOOOOO 



_qm88uHv() »!• 
CALL HCHAR(3.Tl . 137)1 



310B0 CALL CMAR(107,' 

31090 FOR 1-1 TO 10 

31100 CALL C0L0R(14 

31110 CALL CHARd 12 

E0E0E-) 

31120 CALL CHARd 16 

00000- ) 

31130 CALL CHARd20, M 7F7F7F7O7O70707F7F7F70707O707O7OFBFCFE0E0EOEOEFEFCFB7B7B3C3 

C1EIE") 

31140 CALL CHAR ( 124. '• 1F3F7F70707O7O7O7O7070707O7F3FIFFBFCFE0E0EOEOEOEOE0E0E0EOEF 

EFCF8") 

31130 CALL CHAR(99, " 1F3F7F7070707070") I I CALL CHAR ( 101 , "70707070707F3F IF" ) I I CAL 

L CHAR(104,-FEFEFE0OOOOO7E7E") 

31160 CALL CHAR (103, "7E0EOE0EOEFEFEFE" 1 

31170 FOR I-1I TO 12 I I CALL COLOR (1 . 12, 10) I I NEXT I 

311B0 DISPLAY ATI!, 1)1" ■■■•••••••■•••k 1 dt>bbbt)bbbbt>bbt>t)4g 

[mmmimf v ," 

31190 DISPLAY AT(4,l)i" .prRltvul 

Ibbbbbbbfibbbbbb'* " 

31200 CALL MCMARI1, 12, 137)11 CALL HCHAR(2, 

HCHAR (3, 28, 139) I i CALL HCHAR16, 27, 138) 

31203 IF Xt-"NON- THEN 31460 

31210 DISPLAY AT (1 1 , 1 1 ) I "BUT DU JEUi - ii DIBPLAY AT(12,ll>i" " 

31220 DISPLAY AT (14, 9) i "AIDER MR.FROGG" II DISPLAY AT(16,9)t-A REGABNER LA" 

31230 DISPLAY AT (18, 9) i "BERGE EN IRA-" ii DISPLAY AT 120,9) i "VERSANT LA ROU" 

31240 DISPLAY AT (22, 9) t "TE, PUIS LA RI-" ■■ DISPLAY AT (24,9! i "VIERE. " 

31243 FOR 1-1 TO 1000 it NEXT I 

31230 FOR I-U TO 24 II CALL HCHAR (1 , 8, 64. 17) 1 1 NEXT 1 

31260 OIST^Y ATtl2,9)i"MR.FR0GB NE DOIT" ll DISPLAY AT (14, 9) i "PAS TOUCHER DE 

31270 DISPLAY AT(16,9) i-VOITURE.NI LA VI" it DISPLAY AT (18, 9) I "FERE. " 

31280 DISPLAY AT (20, 9) I "MAIS IL NE DOIT" it OISPLAY AT (22, 91 i "PAS TOMBER DANS 

31290 DISPLAY AT (24,9) ■ "L"EAU !'" 

313O0 FOR I-l TO 1000 n NEXT I 

31310 FOR 1-12 TO 24 ■■ CALL HCHAR ( I , B. 32, 19) n NEXT 1 

31320 DISPLAY AT ( 1 2, 10) I "POUR TRAVERSER" n DISPLAY AT(14,10)I"LA RIVIERE, MR- 
DISPLAY AT(16, 10) I "FROQB EST OBL I " 

31330 OISPLAY AT ( IB, 10) I "GE DE S'AIDER" tl DISPLAY A 
DISPLAY AT (22, 10) i "BRES ET OE TOR" 

31340 DISPLAY AT(24, J0)i-TUES." 

31330 FOR I-l TO 1000 ii NEXT I 

31360 FOR 1-12 TO 24 it CALL HCHAR (1 , 9, 32. 1 7) I I NEXT 

31370 DISPLAY AT (B, 9) I "VOUB MARQUEZ 100" ll DISPLAY 
DISPLAY ATd2,9)i"MR.FROGG ARRIVE" 

313G0 DISPLAY AT ( 14, 9) i "DANS UN TROU DE- 
LAY ATI18,9)fT0US LES 600 P0-" 

31390 DISPLAY AT (20, 9) i " INTS, VOUS BAGNEZ 

I DISPLAY AT(24, 9) |"PLUS." 

31400 FOR I-l TO 100O it NEXT 1 

31410 FOR 1-8 TO 24 ii CALL HCHAR (I . 8, 32, 19) i i NEXT I 



(20,10)l"DE TRONCS D'AR" 



(lO, 91 i "POINTS LORSOUC- 



Dl SPLAY * 



(16,9) I "LA BERGE 
DISPLAY AT(22,9: 



DIB 

UN MR.FROGG DC" 



DIBPLAY AT I 16,9) i 



31420 DISPLAY AT (14, 9) t "T0U8 LEB : 
OISPLAY ATI1B.9) I -BNEZ 300 POINTS" 
31430 DISPLAY AT(20,9)i-DE BONUS. " 
31440 FOR 1-1 TO 300 ll NEXT I 

31430 FOR 1-14 TO 20 II CALL HCHAR ( I , 9, 32. 19) l 
31460 FOR I-l TO 12 M CALL COLOR ( I , 12, 10) t i Nl 
AT(8,6) l-NIVEAUX DE DIFFICULTEl" 

11463 DISPLAY AT(9,6)l" -' 

31470 DISPLAY AT 11 1 , 6) I " 1-FACILE (VOITURES LEN- 
VIPERE)" 

314BO DISPLAY AT(14,6)i -2-MOYENIVOITURES PLUS- 
RE LENTE)" 

31490 DIBPLAY AT(l7,6)l"3-DIFFICILE(VOITUREB" 
E RAPIDE)- 

313O0 DISPLAY AT(24,1)|- 
31310 CALL KEYIO.KEY.BTAT 
31320 IF STAT-0 THEN 31310 
31330 IF KEY-49 THEN LEV-I 
31340 IF KEY-30 THEN LEV-2 
31330 IF KEY-31 IHEN LF.v-3 
31360 BOTO 31310 

3200O CALL CLEAR 11 DISPLAY AT(I2,l)l" VERIFIER OUE 'ALPHA LOCK 
TION HAUTE" 

32010 FOR I-l TO 100O n NEXT I 
32O20 OOTO 113 



POINTS, V0U8 8A-' 



III CALL SCREEN (10) l ■ DIBPLAY 

l DISPLAY AT(12,6)i-TEBlPAfl DC 

DISPLAY ATdS,6)|-RAPIDESlVIPC 
DISPLAY AT(18,6)i-RAPIDCS|VIPER 



TAPEZ LE NUMERO CHOISI" 



OOTO 32000 
BOTO 32000 
GOTO 32OO0 



EST EN POBI 



CARRE DIABOLIQUE 



Plus dur qu'un simple cassetete, plus difficile qu'un 
puzzle, plus fort que le rubik's cube : un coup de canon 
dans les jeux de patience ! 

Luc LEVY 
Mods d'emploi 

Charger d'abord le programme "caracteres graphiques". faii.es RUN 
pour charger les caracteres puis entrei ensuite le programme "car- 
re* avec CLOAD. vous economises amsi de la place memoire. Vous 
avei le choix entre deux niveaux de difflculle et trois options: lop- 
tton 5 vous permet de choisir les 9 caracteres que vous desirez. Les 
options 1 a 3 proposent 3 puzzles bases sur une tete d'ecureuil avec 
3 expressions differentes. L'option 4 vous propose de reconstituer 
un carre Le nombre de coups est atfiche alnsi que le temps passe 
depuis le debut de la partie 
Les touches agissant sur le ca/re sont 




CANON 



QWE 
ASD 
ZXC 



X-07 



Si une lettre dangle est designee, la lettre designee e! les deux lel- 
tres contigues tournent dans le sens des aiguilles dune montre par 
exemple. en designant Q 

T *- A W Q 

Par contre. si une lettre de milieu est designee, les deux angles et le 
centre tournent dans le sens des aiguilles d'une montre, par exemple 
en designant w 



QWE 



devient 



SWQ 



Au niveau 2. le sens est inverse pour les lettres dangles et pour les 
i da milieu, non seulement le sens est inverse, mais en plus le 
milieu designe s'inverse avec son oppose (par exemple avec W. X 
remplaceW) 
Dtablement diaboitque. non ? 

Pour son entree dans t'hebdo, le 
CANON X07 demarre ton un ieu 
avec deux degres de dtfficutte, 
une option graphique (voir des- 
sm /oinr ttre~ sur le CANON), une 
option carree haute resolution et 
une option redefinition de carac- 
teres par tutilisateur. Le tout 



avec une horloge qui minute le 
temps de jeu! Canoniers. conti- 
nuez' 

la Redaction 



18 DEFIST M-J 

38 CLSiLOtATE 4,liPRINT-Jl CHARGE LES' 

22 LOCATE 5,3iPR1MT"lARACTECES 

23 LOCATE 5.JiPt»lNl"«APMlQUES- i 

ia data i39,9a, i**. He, iee. 148,64,37, je 

40 DATA 231. 128, 232, 120,. 264, .132.72 

38 DATA 151.24. 16.190.20.164.8. 16, ]fa 

S8 OATA 240,20,20,20,10.16,32,04, 139 

70 OAIA 131.72,284,73, 133,120,252.168,12 



93 DATA 150,108,168,168.12.32,16,8,68 

90 OATA 1*3, 148,164,108, 144,72,30,10,13 

188 DATA 249, , , 232, . . 252, . 252 

118 OATA 15B. 104,146.78,30.73,144,33,192 

120 DATA 335,. 32, 04, 352,64, 32.. 

138 OATA 132,. 32, 112. 168,12,37,32, 

148 OATA 228, .32,32.32, 108,112,32. 

158 DATA 149. ,16,8,252,9,18,. 

160 OATA 233, ,,,68,04,128, 128, 128 

178 DATA 144, ,,.352,48,,. 

188 DATA 145, i ,,248,8,4,4,4 

138 DATA 146,138,138,138,192,192,126.126 

,128 

200 OATA 147, ,,48,72,72,46,, 

210 OATA 336,4,4,4,13, 13,4,4,4 

728 OATA 224,128,128, 139,64,68, ,. 

730 OATA 342, ,,,49,232,,, 

248 OATA 341,4,4,4,8,240... 

258 OATA 225,. 32, 64,252, 04, 32, . 

260 DATA 152,, 32, 112, 108,32,32,32. 

270 OATA 226, ,16,9,252,8.16,, 

288 DATA 149,, 33,32,33, 188,112, 32, 

398 FOR M-l TO 28:F0H 1*8 TO 8:S£A0 JC11 

388 F0NT4(J[BIJ--jtl).J!2),jr3).J(4),J(5 

1,J(6},JC7),JC8)" 

318 NEXT l.HiCLSiLOCATE e,6i0R!NT -ChABG 

ErtEHT TERHJNE )- 

320 LOCATE e.l: PRINT-0-ARG£3 L£ PftCGRArt 



: * ■ ::■-: 



10 CLEAR 130 

30 CLS'PHINT* i£ CAB-E 

XIOLC ■■ • 

30 T*«ND{0) 

40 OEFSTR O.L.R:C£ r I^: n,M 

36 OATA 139.351,133.246,131.150.148.249, 

158 

68 OATA 13S, 144.133.3*0. 15], 130. 224, 144, 

241 

70 DATA 148,243,158.240.131.158,334.147, 

241 

80 DATA 733.144.143.140.147,730.224,247. 

241 

98 FOf M-] TO 4:tOS I«l TO 9 

108 READ Xi0OCM).O0(H).CMSifx) 

118 NEXT l,M 

138 LOCATE 5.3 i INPUT 'MIUEAU 

138 INPUT -PU22LEII.3.3) iCrWf 

tTEOES PERSONNEL 151":" 

148 IF n«E ■• -f>5 THEN 10 

8 

159 Input -entre* g caracteres' ;D0«j :i 

c LENCDOCSJ) <> 9 •■ 

168 A-0:COR |-I TO 7 STE p 3 :lO(AJ»HIC*C 

WCnj.I.J): A.*, l ! H&I1 

178 CLS:L0CAT£ 4,1 :PR!nt-je rfELANGE ( * :L 

OCATE 2,2 IPR1NT-2 msntii S.U.P- 

180 0Atn]«OOCn): FOR M-8 TC ." 

M)S NEXTi e OT Ha] TO 12 

198 K=!MTCRW0m«9)-1 x!F N-3 I 

208 GCSUB 388:n£XT M :OAtn)»ON X- 1 :3-8 

218 CLS 

738 FOR 1-6 TO 2:.0CAT£ 9,1 :f>»lnT LA([] 

- - •_0;i)iN£XT 

2JB LOCATE 2,0 :PRINT "COUP* ILOCATE 8,1 

■ ■ ■ ■ 
340 LOCATE 8.2 i°RINT USING -••.!»* 1T-I1 
.81 

750 IF G«l Tk£n LOCATE 0,2 ;PRlNrSAGNE! 
!!':GOTO 630 
208 R-lNKETAl x.x-l: IF R-- THEN 208 



770 IF -'113 '«#> x-iiS 

TF (•>■« II 

■ ■ 
th£N 720 ELM SOSUB jbtbmk ■ 

j»t if -[.2 rwt oosub i» fi.« eosua ji 
tmKTum 

310 CM m GOSUB 178,ie0.130.408..*lt.470, 
4!».=<a n'jBn 

1MWM OOSuS 37t.33«. 330,340, .is*. 431, 
•A*.**t »t*yRN 

rare «? ^j «t ht l ». 

lORE 4»:iCSiJ8 *M*f.*: 
•"=-f 50ti»5UB 450:*tTUtM 
JOt RESTORE 510 SOSUB 43* - 

370 RESTORE S30M7SU8 •3*m~U*M 
380 RESTORE 53*i60SUB 'M«tiW 

399 RESTOBE 540^£OSUB 430 M 

400 REST»£ 350riOSUB 4»«:«t l «tt. 
*lt fftSTCSI SWiCOS'.S «W It ■ 

; - 570:&OSue 4S»« : 
430 RESTORE 598:£iOS , -r9 4*JM 
440 RESTORE 390:GOSUS *Zi- 
438 READ J,<i tOR I*j TO If ■ R£*0 Xt.Tl.X 
. 

« ■ . , . 

- !t]0>[LMX3).n, 13 
■ 
• GOSUB 0«0:RtTURN 
440 DATA .2, 1.3. 2, 2, .1.1,1.. 
.3.3 

498 DAT* .3, 2,1, .7. ,3,1,3 
.2.3 

300 DATA .3. .1, ,3,t.3. I. J.I, V 
2. .3 

310 OATA .7.,;. 2. 7. .3. 1.1, 3. 1.1. 3. 2, 3. .2 
.1.2 

520 OATA ,:.l.l..l..3..3.1.2.1.3 
330 OAT* .3.1.3 

540 DAT» ,i.. J.l, 3,. 2. 1.1. 1.2. .3 

530 data .3. 3.1, ,2, .3, :.:..:. 

,2,3 

560 DATA . 2. .1,. 2,1. 2, 1.1, 7. 3. 1.3. ?.:. 2. 

2. .3 

370 DATA 1,2.7.1.1.2.1.3.2.2 

588 OAIA 1.3.1.1,2. 1.1.3. 2. 3. 

530 OATA 1.2.1,1.1.3.7.2.2.1.3.3.1.3 

■<* <*WC'.5 ELSE «-X*l 
018 0H*LHt8)-LNCl)'LH[3):|F ON-COini T« 
■ ■ 

020 RETURN 

038 FOB !■! TO 3808 -N£XT 
640 CLS 'LOCATE 3.0 iPfilNT'uOuS *t.£2 GAS 

. COUPS* 
058 LOCATE 2.2 :PRJNT 'LE 1E"PS*>* JUSI** 

■ •.•••IT. J*. 01 
068 LOCATE 3.3 i INPUT ••m.IOttZ UOU*.' l» 

:6-eiNC-liT.8;I.a:X^ 
678 IF LEFT«[R,U <> -0- Then 128 
688 A-S:FOR 1-1 '0 7 S1(P 3 :LAC*))>niD*t 

i«4v».i:n-»atas leoto jm ■ 
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6700 f 
6710 B 
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6740 
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6760 
6790 R 
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6893 t 
6896 B 
7000 R 
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70» B 
7030 
7060 
7070 
7080 
7090 
7100 
7110 
7130 
7130 H 
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7310 R 

7330 n 

7330 

7360 

7370 

7380 

7390 

7600 

7610 

7620 

T630 

7640 

7630 

7660 

767Cr 

7680 

T**0 

7700 n 

7710 n 



9070 
9080 
8090 
8100 
8110 
8150 B 



8360 
8370 

B9H 

8590 
B70C 



MM I SOSUB 1300 I CT-C iROI — Hit* ■ jour a* ! 

IF LEKIR*(311-0 no T-l ELSE T-VAL(ft*(3)l 

IF PO THBI SOSUB 6800 E1SE 90SUB 6700ifiSM — poU: 

«1»*0 i Yl-TO 

PLOT I2,V2tR£n — TNtt *i ha-% «cr«n 

eosis i4ooiflEK — traca 

iO-i: ■ VO-V3iFB4 — MM ■ )our 0* )• »lua* 

CT<C > COLOR CC tRS- 

■ETUM 



j c*rl»«i»nn» 






CM.DX. 0€S COOROONMEES EX CflftTTSIEN 



IF NT TMEK I2-FTI-(V«_rB»(l)l 

IF m THEN *3-FNV(V«.lR*(2Jl 
RETUFW 



CALCUL DES CO0RD0M4EES EN POLAIRE 



fWV6L(R6(l) l-REW — rpcuo»f«tion du aodul* 

% : *PI/190iSEN -- r»Cup*r*tton do l'angl* »t • 
IF «T TmEW i2-FMIFMC0Slflll ELSE »3-*0*t1*C0S(A14«I 
IF HT Th4EW y2«FNYI«.SINIfl)l ELSE V2>Y0-H4S!NfH> «.' 
RETURW 



EFFACE 



j-0 TH£)« OCT ELSE 14-liGOSUB 1200 
y='C:COLOR CF:R&i Mm 4 jour a» U Eoilxr Ou *<ms 
jP:REfl — EH»cinnt t}» HI '**:-*n •" nod« grjptuqup. 

iflErl — ■ couIpu- Ou trui*CM|)lMHi!l|rt d* la coutsur C 
— coulvur coi/in'.i ■ coulvur ear d»4«ut 

lO-O t vO>333 I REn — ait* da la plua« an Das at a gautna 

OETURN 



CEPaE 



PPCl GOSUB 1200: CT>C:P£N — MM ■ jour da la tout* 

HIS ELSE r»i 

QaVRLIMtlDlREn - -REuptration du Oia-afa. 

i»D». 499 I V^OiRETI — point am depart du tract 
PLOT 10' <• 
J>0 



i-r-v/20 

'<N COLOR CT ELSE COLOR CF 

PLOT TO I0aIR«I,*0*r44(V 



Rt(31»STP.4(333/x<»'(J 
SOSUB 23001 REM 
SOSUB 6I00iR£" 
RETUFM 



'iciaga da* achallat. 



- atodp r.Oura/>t da traca 



Suite page 14 



RBJI 



TOUR DE HANOI 



Une legende orientale ditque Dieu est en train dejouer 
avec des Tours de Hanoi" de 64 disques. Quand il aura 
termine, ce sera la fin du monde ! Rassurez-vous, il lui 
faudra 355 milliards de siecles pour finir son jeu ! 
Cela nous iaisse le temps de nous debattre. plus 
modestement, avec les 3, 4, 5 ou 6 disques de ce pro- 
gramme. Et ce n'est deja pas si facile! 



1 POKE 770.17J PQ*E 771.48 POKE 773.1 

92 POKE 77J.U5 POKE 774.20? PO<E 771 

.3 PO'E 776-38S »0«E 7/7. I POKE 77».J 

POKE 7741.246 »0K£ 760. 9 PJKE 7*1.293 

I PO«E 782-2«e PO*E 76J.34S P0"£ ?84. 
174> POKE 793. 9 POKE 7(6.3 POKE TtT,7* 
POKE 788-2 PO.E 76»,J POKE 799-J6 
POKE 791.0 POKE 793.0 GOTO 10 
T POKE 7S9.J8 POKE 2(8.68 CALL T7» 
* POKE 7M.J* »OKE 760.136 i»U "0 

»£tu«h 

3 poke 7s9.j* poke 7s0-186 call 7^9 

PETU»M 






BIOIEP KIME5 *. LUC 


LE 


KOCL 


9 PEA I 




PPESCNTEHr 






9 0CN 










10 PEA 




H A H H 000 




ii *t* 




H A A H MO 







12 •£- 




HA A KH H 





I 


13 »£« 




HH AAAAA N H N 


u 


1 


14 PEA 




MA A N MM 





1 


13 PEA 




HA AH MO 





I 


It REN 


N 


HA AM M 000 


11! 



17 REN 

16 REM 

If HC« ■ MCOLOfl • J 

26 F0» 3 • 1 TO 3 READ H(2> HE'T 2 

33 Bata 3. 13. 62 

10 MPLOT 31.12« TO 91. 12« TO 91.1J8 

TO 03.138 TO #2.12* TO 31.12C 

TO 31. t* TO 43. t* TO 43.124 
13 HPlOT 144.126 TO 164.136 TO 144.130 
TO 93. 118 TO S3.126 TO I44.1J6 TO 144.64 
TO 113.64 TO 113.126 

17 HBLOT 21? 126 TO 377.126 TO 3?" 138 
TO 160110 TO 186136 TO 317.126 

TO 217.64 TO 238.64 TO 220. 126 
3( HCOLOt . 3 
6« FOR t • 123 TO 116 3T£P - \- 

MPlOT 13. i TO 81 v. GOS'Jl 280 

MIXT 
70 MCOLOR • * 
60 FOR r - 113 TO 10< STEP - ! 

MPLOT 17. Y TO 76 * COtUI 200 

ME*T 
»( HCOLOR ■ 3 
100 FOR Y • 103 TO 96 STEP - 1 

MPLOT 22- v TO 7t t GOSOI 200 

MIKT 
110 MCOLOR • 1 
130 FOR t • 93 TO 16 STEP - 1 

HPLOT 27. i TO <« i COiUl 306' 

110 MCOLOP • I 

146 FOR r • 03 TO 76 »TfP - 1 

MPLOT 12 v TO 61-r COtUI 200 

NEXT 
190 GOTO 308 

300 FO0 2 • 1 TO 20 MIXT 2 «ITU"h 
360 PE" 

310 REM 8IIWT PROCRAMAt 
326 PEH 



13 




340 Cil) - 34321 C<2> - ICIli " 6 
343 MTAI 21- FRIMT PRINT PRIhT 

PRIMT 
330 YTAI 21 MTAI 1 PRIMT 'DEPART • • 
GET Bi- UTAI II MTAI 9' PRI»T D< 

360 IF UAL (0*3 < 1 OR '..'d- 'Sf 

> 3 THEM G05UI J COTO 343 

361 IP C< UAL (BR>> - THE" COtUI I- 
GOTO 343 

3*3 COSUI 3 

370 UTAI 33 MTAI 1 PRIHT -APRIl'EE* " 

GET A« UTAI il MTAI 9 PP|MT Al 
361 IF UAL <AI> < 1 OR UAL E80] 

> J THEM COSUI J. COTO 376 
399 D • UAL (0(> A a UAL (Al) 

393 IF B • A THEM COSUI 1 COTO 343 
610 AB • C<B> - 19 • INT <C»D> 



(II 



I0>> 




610 IF AA ■ THEN COTO 430 

646 IF AA ( AD THEM COSUI ) MT IAS 

(30 COtUI 3 

660 C<D) • IMT <C(B> ' 18 > C' *> 

- 10 t C<*> * AD 
670 COSUI 1099 

673 vrai l PRINT - ll*l> ICO* 

■>•»■>■ »!*»»■ UTA| 31 
677 IF C<3) • 34331 them COtUI J 

COSUI 3' COtUI 3' EMB 
600 COTO 343 

1000 KB - T * <1 * (6 - AD>) 
1010 XB • MB • '0 • 1)193 

1029 «•••'* I ■■;■ aJ " 
1010 KA - WA • . A - 1 ) ) 91 
1040 L • 29 • <1l 1 iAS - 1>> 
1043 IF C(D> - 9 THEN TD • 116 

COTO 1033 

1030 VD • 126 - 10 t ( LtH ( SIR* CI"' 

1839 I' C<A> • 6 THEN VA ■ 126 

COTO 1070 
1060 ta - 126 - 10 > I UN < ITM'Cmi 

1070 FOR T - TO 9 

1006 MCOLOR ■ 9 

10*0 MPLOT XD.VD - 19 • : TO *D 



1110 N(XT IK. 



MUSIQUE 



Un programme de musique "presque" aleatoire sur 
3 octaves Compose des melodies de 50 notes, les 
memorise et les restitue a tout moment. 
A la fin de chaque composition, on select ionne le meil- 
leur tempo (le plus souvent le 7), si lamelodie vous ins- 
pire, vous pouvez reproduire les NOTES et les CODES 
MUSIC du MZ sur imprimante. La repetition d'une 
meme note vous donne alors sa "longueur" pour un 
tempo donne. 

Certes. les melomanes n'y trouveront pas leur compte 
Ce nest pas du MOZART. Mais les compositeurs en 
herbe pourront toujours y trouver force inspiration et, 
moyennant quelques arrangements, pourquoi pas le 
prochain tube de I'ete? 



*Se % % *k % n k c 

«-«!-« SI LO SI SI 



G. LECANNU 
, <& 1, "6. °Si "f» '&, "Ja'W f S« mP-™"',,"! 

U> SI SI SI FTfO- 7 eCtSPOSITION M- 2 

b s e f e f n> 



Lfl FO SOL Ffl HI HI SOL SOL FO Sa Ffl SOL SI Lfl Sa FB FB Sa 

11 00 RE rl! III » _SI _SI JJI R£ HI F3 nl FB SOL FH Ffl SOL H> HI 

FB « HI Ffl SOL FB SOL U> " SOL Ffl Ffl TEMPO- 6 COMPOSITION N» 4 

OEFCFtFFeEEFH 



SOL LA SOL SI LB SI U> SOL HI CO RE MI SOL Lfl Lfl FO SOL Lfl U 

SOL ». SIX Nl Ffl sa Ffl Sa Lfl 51 W SI SI SO. FO HI Rt RE 
'f> FO SOL II FO SOL Ml Ffl Stt FB HI FO MI TEMPO- 7 COMPOSITION IT 




i:# p«iMTo«ii«*f -i 

■ 
■ 

150 B»(II>»afUJ>.e»iut<iI>-.t:Ij)^« 

■ 
132, GfTWtt -•<•%;«*-(>, t FT>«T>40rft(l2>aT 

' ■e , «il»J'T>Cr*15? 
15* !FBPf-;T>o*»iHr,pv«(|J<i- TEMpO--rTi(tiii- 

1*5 I- TO ■ KB/THEN TLNPOTin/SIC B«U2> 

!!o IfKFfM-T>«HP»lMT«Peoi(II>I- T|nPO»'l Tl( II" 



E OE MUSIOUE OLEOTOIRE* 
3 REM • AUTEUR S.LECBNNU • 

6 REM • CREE SUR SHBRP HZ-88K 

7 REM ........ 

S PRINT'I' 

9 0M- 'IDIH 00*<253).e*(253>.L'*<;55>.ri(235).Bf<235> 

ia B-ifiT<RNO<[)-aj-iiiFDf.eGOSuei2ee 
u £FZ>or>o»*a-4iGOT03e 

12 IF2<0THEMa.fl.4i60T038 
20 IF0>F»2THEMR-F.l 
23 IFfl<F-2rHENB-F-l 
IS IFBOTHENB-I 
33 IFB>7TWEHB-7 

40 IF o-i then ti-:i- : 
58 IF 0-2 THEN BC0**"C 
so if o-j then b*-o*--e 

79 IF 0-4 THEN 8*-0**""F 
88 IF 0-3 TICN B*-0***G 
98 IF 0-6 THEN 8s-0»*'fl 
T8 IF fl-7 then e*-Ot*'B* 

a f-b 

9 M-INT<RN0(l>-38>*3 
18 K-IKTCRND<n*N> 

25 ON GOSUBieae. 1881. 1802.1883. 1884. 1083.1886 
29 CO* (12>-00t CI 2>*Of*N0*>* - 



carosnion - 



UIiPRINT-T 

■tlJiSMUNT^P 



< PBIXT-I- 



tJVZ- 



80 



. h r 



_ K£-e*--0-5CSU81 3MISOT0IJ9 

..■• :'■. 

199 I*«8iO«-"iyi-'-itiO».'-:^)». 
168 60T0 18 

388 :>oi;i-o*ioiwT(R>cii)*ji-i 

318 IF(0*--_-)«iO-l)T>«HO-r 

328 IF O.J T>€X Oi* — • 

325 IF(0-1>«ra>3>T>«.kct-2liO-2 

33a ;r >; r*n o*-- - 

533 IFtOM — ')*(0-J>TK«>.;iaOT08» 

348 IF 0-3 TXX 0»-*_- 

343 IF(0-3)«l*,4>nCNO«-JIiO-2 

338 RETURN 

1089 fCI- '00 " i RETURN 

1881 NOfRE-iRETUPN 

1882 NO*-'MrrRETURH 
1881 NCH-TO-iRETLPN 
1804 NO»--Sa-t(f£TURN 

1885 MM-'LO'iRETURN 

1886 NOI--SI" i RETURN 
1188 REM SP CHOIX 00 TEMPO 
11(8 CURS0R8. 13 

IIjO PBINTTEMPO ... (1 g 7> ■> i- 
1138 PRInT-IMPCESSIOH DCS NOTES 
1148 PRINT-IMPRESSION KS CODES M2 
1130 PRINT-LNE AUTRE COMPOSITION 
1168 PRINT-RBPPEL B-LHE COMPOSITION .. 
1190 RETURN 
1288 I2-I2-1 

1218 PRINT" -£»W* MUSIOUE BlESTOIRE - 
1328 BETUM 

1388 REM =P RBPFEL PONE COMPOSITION 
1310 PRlNT-|-:|NFVfM* « LB COMPOSITION REJCLCR 1 
1328 IF{NC<1>*(NC>I2)TNEN13I8 
1338 BWR 1188 

13*8 GETW»:T.KL(RP»>>IFT>aTHENTl.T 

1330 !FRP*-CHR*(i821TNENTN-8iR£Tl*M 

1368 IFRP*.-I-THENPRINT/PU*<NC>I- TEMPO— ITU' COMPOSITION N* •|<IP*IHT- 

1378 !FftP*«-N*TNE>*-RINT^Pt>Ot(NL>|- TENPO-*iT|i- COMPOSITION N" •iNOFOINl 

1388 IFRP*-'R'GOTO 1388 

1390 IF(T>8>*(T<8)T>CNTEnPOTiMUSICB«<NC> 

1488 SOTO 1348 

En moditiant legerement ce programme, on peut factlementmemon- 
ser des melodies non-aleaioires et les impnmer 
Utile pour apprendre la musique, non ? 

La Redaction 



, imncr*ccrraii i n n 



'ihcitm-i 



Suite de la page 13 



GOVJPtt- 



8720 R 

8730 

87M 

8770 

8730 R 

37W B 

WOO B 

9010 fi 

9020 R 

9050 

9O60 

9070 

9080 

9090 

9100 

9110 



9130 

91A0 

9170 

9180 

9190 

9200 

9210 

9220 

9250 R 

9260 R 

9300 R 

9310 R 

9320 R 

9330 

9360 



9720 R 

9730 

9760 

9780 R 

9790 R 
10000 R 
10010 R 
10020 Ft 
10030 
10060 
1O070 
100B0 
10090 

toioo 

10110 

10130 R 
10160 Ft 
20000 R 
20010 R 
20020 R 



20060 
2O070 
20080 
20090 
20100 
201 tO 
20120 
20120 
20140 
20130 
20160 
20170 
20180 
20200 
20210 
20320 



RECTANGLE 



N-4 ■ GOSUB 1200 t CT*C iREM — mil 4 jour de la coul 

IF LEN(Rtl3>»>0 THEN T-VflL lff»(3> ) ELSE T»t 
CX-VOLfRlllHMCIiREK — l«r cots du r«t»ngl». 

IF LENIFt*[2))XI THEN CV»V0Ltft»l2l ) «TY ELSE CV-VBL(F(«ii )>■ 
L1-I0-CI/2IREM — lialta Du rtctangl* vara la gaucft* 

L2-Y0*-CV/2tFtE?1 — Halt* du rvctingl* vara 1* naut 

L3-LI*CHREM — Halt* du ractangl* vara U droit* 

L4-L2-CHREM -- Halt* du rcctangl* vara la Das 

I1-L3 : X7-L3 IYI-L2 I Y>L* 



JiREM 

(MJ 1 12-L1 I Y1-L2 i V7-L4 
30SUB 1*00. REM — traca du dau'laa 

Jl-Ll 1 I2-L3 I V1«L4 i Y2-L4 
GOSUB I«O0iREM -- trie* du •-fotili 

<1-LJ I I2H.3 I Y1-L2 I Y2-L2 
FJOSUB 1400(PIM — traca du quatrla 

CT-CC 
QXOJt CC 
RETURN 




INITIftLISATION 



IF LEN(Pt(l)i-0 THEN Btdl-'nolr* 

GOSUB 7000inEM — affaca 1'acran 

OX-0 i OY-233 iBEM — Initialisation d*« origin** 

Kl-I ■ KV*I i REM -- inltlallaatton das acnallas. 

PO-0 i REM 



MT-I 
RETLUN 



■ REN 



INITIALISATION (du prograi 



DIN C«(20HR£N — t 

HC'IOiKH — fl 

C«fl)-*i<Kh*ll*-iR£n 
REM 

C«i2i--Y9er>*ll*-]ftEM 
REN 
CSI31--!lsta"iREN 
REN 
REM 
Ct (41 -"tin" i REM 
REN 
C»i5)--eoulaur"iREH 



das autorlsi 

a horizontal 
ilta Inf/lli 



•yntaia ■ aacha 

— daflnitlon da I'achall* vartlcali 
syntaaa i yacfial la/1 lalta ln</t)i 

-' daaanda la list* d*s coaaind** oi 
coulaurs autoris***. 
■yntsa* ■ tlsta/co*/ ou I Isti 

— arrmtm la prograaaa. 

— p*ra*t da ehangi 






o 



mrl, j aun*, bl su , t 



siia 



rut atn 



REM 
REN 



20300 C«<7)--ya-a-|REN — tr, 

20310 REN syl 

20320 REM 

20330 REN p« 

20340 REN 

20330 C*<8)--ln'orastlons'iR£n — dsi 

20360 REM pi, 

20370 REN lai 

20380 08(91 -v-"a-tREN — tri 



■taur/lnt grai 



J i pas da graduatlona 
I CouI*ur courant* 

'lin/poait a/int grad/coul./ 

i*s a ci -daisua. 

Ilchaga da la position d* la 

j|*ur das traca* par da4aut. 




20400 


REN 


parametral oar daFaut t 


20410 


REM 


COO* trait i 1 (fait plain! 


20420 


REN 


coulaur i coulaur courant*. 


20430 


C*UO>-*a<faca-!R£R 


— a'faca 1'acran dans 1* coulaur spaclfiaa 


20460 


REN 


syntaaa I a'Faca/coulaur/ 


20470 


C*lin--carcl*->REN 


— traca un card*. 


20480 


REN 


syntaaa ■ 


20483 


REN 


carcl*/dlaa*tr*/cod* tralt/coulaurr 


20490 


REM 


paraaatra* par dalaut ■ 


20300 


REN 


cod* trait i 1 (trait plain) 


20310 


REM 


coulaur i coulaur courant*. 


20320 


Wl^l-'orto'iREN 


— Ftia las acnalla* pour qua 1'acran salt 


20330 


REN 




20340 


REN 


syntaaa I orto/ 


20530 


C«fl31--*ti»olu-|REM 


— passa la syst*** *n aod* d* traca *b»ol 


20360 


REN 


c'rst a dlra qua las coordonnaas sont 


20370 




dlractaaant callas das points da \'trv 


203BO 


CsU4).-relatl«-|REH 


— passa la systaa* *n aod* da traca ralat 


20390 


REN 


c'ast a dlra qua las coordonnaas sont 


20600 


REN 


calculaas a partlr d* callas du darniar 


20610 


REN 




20620 


REH 




20630 


CSI13l--ractar>gl*-tREH 


— trac* un raetangla cantra sur la pluaia 


20640 


REN 




20630 


REN 


raetangla/cota </tot* V/c. tral t/ccul . 


20660 


REN 




20670 


REN 




20680 


REN 


cod* trait I 1 


20690 


REN 


coulaur i coulaur couranta. 


20700 


Ct< 16) -'cartas! an' i REN 


— pass* *n aoda da calcul cartaslan 


20710 


REN 


syntaaa t cartaslan/ 


20720 


C*ll7).'polalr»-|fiEM 


— passa 9t\ aod* d* calcul polaira. 


20730 


REN 


Syntaa* 1 polalr*/ 


20730 


C*(18)-*lnltlallaation 


■ REM — inltlalls* coaplataatant 1* syst*«*. 


20780 REM 




20790 REM 




20800 




20810 


E»(0>-"hors acran'»CHMI71 


20820 


E»(ll=-Eo«jntlt lncorr*Ct*-*Ofl6(7) 


20830 


E«l2)--T#raln*i las coa 


■aandas par •/'■♦CHRSC7) 


20840 


F» !3)-*coul*ur minnnij 


**CHFt6(7) 


20830 


E«l4)-'para*atr* incor 


*cf*CHR»(7) 


20860 


E*(3)-'typ* d* trait i 


corract-«CHR«l7l 


20870 


E»l61--syst*a* aatur*-*CHR*(7> 


20880 


!»EM 




20890 REM 




20900 


F«-CHRSU21*"Pour ralancar la prograaa* »*n* v'facar la dassln," 


20910 


FS-F1-- utlltsat OOTO 200* 


20980 REM 




20990 REM 




21000 


01-0 i DY-333 iREH — 


origin* (i.aa iu dapart an baa a gaucna 


21010 


KI-I 1 KY-I iREN — 


achallas Flat* *u dapart a 0-333 


21020 


10-0 i YO-233 iREM — 


pluaa alsa an bas ,a gaucha da l**cran. 


21030 


NC-1 I HT-1 iREN — 


traca an aoda absolu 


21040 


CF-0 iREH 


coulaur du fond • nolr 


21030 


Cam Zf t GRiREN — a 


FFac* 1'acran dans la coulaur du fond. 


21060 


CC-7iCT-CCiR£N 




21070 


COLOR CT iREN 




21073 




alsa an coor donna* cartasi annas. 


71080 REN 




21090 REN 




21100 


OIN CCHI7) 




21110 


C0»(01--i>olr- . COtlll- 


•rouga' i COs(2>-*varf I CO»<3)-'jaun** 


31120 


CO«<4)-'blau* ■ C0«(3C 


"ros*- i CC*16)-"cl*l* i C0»l7l--blanc- 


21130 REN 




71160 REN 




21200 


NT-4 iREN — 


nb i.i a trait* 


21210 


TN-3 (REM — 


nb aaa d* traits. 


31220 REN 




31230 REN 




31300 


DIN TYI8,4ltREN — contlant 1 ' 1 ugi da chagua tvp* da traits. 


31310 


FOR 1-1 TO 8 




21320 


TYII.01-0 i TYII.ll 


— 1 1 TYU.21— 1 1 TYd.ll — 1 


21330 


NEXT I 




213*0 


rV(3,2l-0 i TYI6,3>>0 I 


TY(6,31-0 I TY(B,3)-0 


21370 


TY(0,0)-8 r TY10.1I-B i 


TYI0.2I-6 I TY(0,31"8 


21380 


TYIO.41-2 » TYU,4)-0 i 


TV (2,41 — 1 


21390 REN 




21393 REN 




21400 


DEF FNI(I>«(X-OI>*«X 




21410 


DCF FNY(Y)"(0Y-Y1*KY 




21420 


REN — cas d*ua lonct 


Ions calculant laa coordonnaas du point a 


21*30 


KH tracar an function d«s achalla* t^im I'utMlsataur • daflnl* 


M«JO MM 




31490 






21300 


OIN MISIiREN -- racolt las dlftarantas partlas d'una coaaunda 


22000 


RETURN 




72030 REN 




22060 REN 








30010 REN TNAITENENT DCS ERRCURS 


3003O 


IF ERFI-74 THEN PRINT E« 


(01 I GOSU8 6100 1 GOTO 31000 


30060 


REN -- la pol 


nt traca ast hors d* 1'acran. 


30070 


IF tftft-77 THEN PRINT CRSI3I ■ GOTO 31000 


10080 


REN — 1* typa da trait spactti* n'aaist* pas. 


10090 


PRINT •Errtur- * CHRSI7 




31000 


RESUME 31010 




11010 


RETURN 


1 




FICH H p4i 



l Jntrmtomentclc tnxtesurHP41.Ce n'est pas WORDS- 
TAR ni SELECT, ni.-iis tc programme est dtonnant a plus 
d'un UttB 
A vos claviers! 

M. BONNETA1N 
■ 

ifflcheoe du menu 
Option? 0(ouR/S) (in du programme 

1 ndun Flchlei .'ii memolra dextonsion 

2 modification (fun textfl en incrnoiro d'uxten 

sion 

effacemenl dun Icxlo on memoire d'exten- 

4 :■■ i-ii 1 1 u ■ i n ■■ . < r .■ ■ i| ..■.|/'[i'.K.]ii 

5 rGouverture d'un fichierpreal;tbli>m<r!n tier mo 

Explication detalllee 
1 Creation 

a) ahichage das fichiors en memoire et du nombre do reglstres 
libres 

b) "Ion.', 1 d« registres du (ichier a creer, puis 
R/S Si vous n Intro d rtachlne prend SO rogistres 

c) ■'Nom , '* lapOZ le nomclu Rchief a cioer puis R/S Si vous ne tape* 
rien. pas de fichter cree el relour au menu 

pa de 24 caracteres maximum). La 
tone t ton X + oa osl assignee a la louche Z +. si vous en avez besoin. 
Puis R/S et le programme retourne en d) Si vous n'introduisez rien, 
le Itchier est ferm6 et retour au menu 



2 Modification 

n memoire 
in Norn? ' inlrodulsei la nom du Ih hiei ■ id rail i loul 
modllli iilon pul iR79 Bl rleri n'eal introdult, pal di 

■ i ■nrllli 

c)"moi?". tape? i ol/la lattra/l'sxpraaalon .i modifier (mux 24 

coracteres), puis R/S SI rieri n'esl antra, ratoui bu manu 

id *Remp1a?ant? Introduisei la mot/la irHirwroxprer.sion qui 

vfendra rsmplacei i a qui a ata Introduil I pull R/! ■ SI rien n'ost 

Introdult, ratoui au c] 

1-1 Mode ' tapei la manlere sulvanl laquella raua souhaltaz von la 

mmliln ,i1nni -MfH (■<*■!■ -.mr. I.i Ihiiiim [Hi I Ml. [mr, H/S Si lion nV-.t 

Introdult, od-i el ff-ii-o. La modification osi faite (ce peul etra 
long "i n retour au c). 

no Un texte contenanl m tois la mot 'QLABLA", dont vous vouioz 

i |i!.u-.T i of tame . uccuru s par "DISCOURS" 

"Mot?" "DLABLA" 

"icmplacant?" "DISCOURS" 

-Mode?" OD.FFll 

do indlqua le i BLABLA* de la lone de modification 

I i iin]if)in' I.' 1' HI Afil A" ti'ir'. <U: I.i /nrn: iii! modification 

II Indlqua le nombre de "BLABLA" entre deux "DISCOURS* 
Ex OZ.1 105 : les 2et 7 "BLABLA" seronl modities 

0Z.I205 IDEM 
OZ.1305 les 2, 7. 12 "BLABLA" seront modifies 
Si 11-0. c'esl equivalent a 11-1 

Si FF-O.alOfs tousles "BLABL A" seront modif ies (en tenant comple 
de DD el jusqu'a la fin du texte. 

Ex. : 03, 09 00 - les 3". 4*. 5*. 6", 7* et 8* "BLABLA" seront rem- 
placea 

03, 000Z - les 3°, 5°. 7*. 9". It" et 13* "BLABLA" seront mo- 
difies 

05.0000 -les 5", 6". 7". 8". 9". 10*. It". 12*, 13 e et 14" 
"BLABLA"" seront changes. 

3 Eflacement; 

a) affichage des licbiers en memoire 



m du fichte* a eft* 

.... . . 



a] affichage memoire 

b) NOM? uV>eztenorndu*lchi«* que vous desire/ lire puis R/S Si 

I ape flour au menu 

5 Poursuilo 

me moire 
b)"NOM'" tapez le nom du fictilei R/s 

it derniers caracteres du tichtor en question 
d> relour S "10 CREATION", d) 



Bien enlendu, voire HP 41 ne pourra guere rtvatiser avec les systft- 

mes profession no I -, mats elle s'en rapproche 

II n'ont qu'a :.o bion tentl ' 

Co (]ui -jui) rVaal que le ca;ur d'un programme Suivant co que vous 

pOSSedez, vous devrez rajouter une routine (pour sauvor Iq tout sur 

cassette ou carle magnetique pour hmpnrner, pour fafttcber sur le 

monileur) Cependant, lessentiel est (all 



• ce programme fait appel a do (simples) nolions de program mation 
synlnetique. II faut (et il suffit) de sawoir creer les deux fonctions 
STOP et STOO, qui sont utilises trois lois chacune, 

• lorsde la lecture du lexte (operation 4 ou 5). tors de I'efl 
dernier caractere du dernier rcgistrc (M pour I'operation ' 
caractere du texte pour I'operation S). il se passe un phenomono 
que vous connaissez peut-etre: une permutation circu - 

droite de tout laf fichage Ceci est du a I'abaissement du drapeau 50 
lors d'une operation illicite (le programme ne stoppc pas car le dra- 
peau 25a eleleve) ;alors la machine confondce qui es! a ['affichage 
avec le "canard" bien connu... Cost ce qui se passe ici et laff ichage 
se deplace done d'une position vers la droite a chaque label ren- 
contre. Ceci n'est toutefois guore genant 



mil 28.il 


31 X=8' 


62 FC? 22 


93 -POURSUITE- 


124 EltDIR 


155 GTO 65 


186 SEEKPTfl 


217 CF 22 


248 DRCL 83 




Sl»l8l -FICH- 


32 CTO 12 


63 58 


94 DVIEU 


125 BOH 


1564L8L 86 


187«L8L 69 


218 -HODF ■>■ 


249 POSFL 




82 8EEP 


33 2 


64 CF 23 


95 PSE 


126 CF 23 


157 8 


188 DOH 


219 PRONPT 


258 KV> 




WfWFF 


34 x=r? 


65 -non ?■ 


96 EHDIR 


127 -HOH ?■ 


158 STO t 


189 CLST 


228 FC? 22 


251 CTO 89 




84 -XW 


35 XEO 88 


66 DON 


97 DON 


128 CLD 


159 STO ) 


196 CF 23 


221 1 


252 P.CLPT 




85 II 


36 DDN 


67 STOP 


98 -HOh ?■ 


129 STOP 


168 BTOX 


191 -NOT ■>■ 


222 STO 12 


253 .881 




86 PUSH 


37 3 


68 FC 23 


99 cm 


138 FC? 23 


161 12 


192 STOP 


223 INT 


254 ♦ 




87 "FIN " 8" 


38 X=V? 


69 CTO -FICH- 


188 CF 23 


131 RTH 


162»LBL 87 


193 FC? 23 


224 STO 13 


255 SF 25 


279 GTO 18 


88 BV1EU 


39 XEO 11 


78 CRFLDS 


181 STOP 


132 8 


163 DTOX 


194 RTH 


225 RCL 12 


256 SEEKPT 


288«L8L 11 


89 PSE 


48 RUN 


7HLBI 88 


182 FC 23 


133 SEEKPTfl 


164 RDH 


195 DLENC 


226 FRC 


257 1 


281 TOHE 1 


18 -OSES = I" 


41 4 


72 CF 23 


183 RTH 


134»LBL 84 


165 DVIEU 


196 STO 68 


227 186 


258 ST- 14 


282 -EFFDCENEHT- 


ii dvieu 


42 x=r> 


73 ■?- 


194 e 


135 -flOOOOOriPflflBOfr 


166 PSE 


197 DSTO 88 


228 » 


259 RCL 14 


283 DVIEU 


12 PSE 


43 XEO 83 


74 STOP 


185 SEEKPTD 


136 DRCLREC 


167 USE X 


198 DSHF 


229 STO 12 


268 X=6? 


284 PSE 


13 -UNIFIES = 2" 


44 DM 


75 FC 23 


186 Clfl 


137 8 


168 GTO B7 


199 DSTO 81 


238 INT 


261 CTO 69 


285 EHDIR 


14 DVIEU 


45 5 


76 CTO 81 


187 2 


138 STO t 


169 CLD 


268 DSHF 


231 X=8? 


262 BSE 13 


286 BOH 


15 PSE 


46 X=Y? 


77 SF 25 


188 XTOD 


139 STO 1 


178 DON 


281 DSTO 82 


232 1888 


263 CTO 18 


287 CI D 


16 -EFFBCE8 = 3" 


47 XEO 82 


78 DPPCHR 


189 POSFI 


148«LBL 85 


171 RTN 


282 DSHF 


233 STO 14 


264 RCLPT 


288 CF 23 


17 DVIEU 


48 urn 


79 FC 25 


118 1 


141 -umoBDonpflOflfl- 


172«LBL 88 


263 DSTO 83 


234 RCL 12 


265 .691 


289 -HON - 


18 PSE 


49 1 


88 DPPREC 


111 DFir.nr 


142 12 


173 TOHE 4 


264 CF 23 


235 FRC 


266 - 


298 STOP 


19 -ll»f = 4- 


58 X»Y' 


81 CTO 88 


112 RDK 


143 BPOT 


174 -CORRECTIOH- 


285 -REBPLBCBHT V 


236 188 


26? FS? 25 


291 FC? 23 


28 DVIEU 


51 CTO -FICH- 


82»L8l 81 


113 .82 


144 BTOX 


175 DVIEU 


266 STOP 


237 < 


268 SEEKPT 


292 RTN 


21 PSE 


52 -CREDTIOH- 


83 CLD 


114 X(=V 


145 SF 25 


176 PSE 


287 FC 23 


238 X=8' 


269 RCL 68 


293 PURFI 


22 -COHTIHUER =5" 


53 DVIEU 


84 2 


115 - 


146 ARCLREC 


177 EHOIP 


268 GTO 69 


239 1 


2?e DELCHR 


294 16 


23 DVIEU 


54 TOHE 5 


85 XTOD 


116 SEEKPT 


147 FC 25 


178 DON 


289 BSTO 84 


246 STO 15 


271 CLD 


295 RTN 


24 PSE 


55 PSE 


86 SF 25 


117 XEO 84 


148 CTO 86 


179 CF 23 


216 BSHF 


241 8 


272 DRCL 64 


296»LBL 12 


25 TOHE 8 


56 EHDIP 


87 DPPCHR 


118 GTO ee 


149 8 


188 -NON ■>• 


211 BSTO 85 


242 SEEKPT 


273 DRCL 95 


297 TOHE 9 


26 CF 22 


57 CF 22 


88 FC? 25 


1 19»LBL 83 


158 STO t 


181 CLD 


212 BSHF 


243«LBL 16 


274 DRCL 66 


298 CLST 


27 "OPTION ?• 


58 CLB 


89 DPPREC 


128 TOHE 1 


151 STO 1 


182 STOP 


213 DSTO 86 


244 CLB 


275 DRCL 67 


299 CLD 


28 PeOKPT 


59 PSE 


98 CTO "FICH- 


121 -LECTORE- 


152 DTOX 


183 FC 23 


214 BSHF 


245 DRCL 68 


276 IHSCHR 


386 BOFF 


29 FC 22 


68 -LONGUEUR ' 


9HL8L 82 


122 DVIEU 


153 DTOX 


184 RTN 


215 BSTO 87 


246 DRCL 81 


277 PCI. 15 


381 STOP 


38 cm 


61 PMBPT 


92 TOHE 8 


123 PSE 


154 DVIEU 


185 e 


216 BOFF 


247 DRCL 62 


278 STO 13 


382 .EHD. ■ 



DONJON & DRAGON 



Unjeugraphiqueoutoutyest:letroneduroi,lacouron- 
ne, les dragons et les monstres rampants et volants. 

Olivier FRANCE 
Regies dujeu 

Le chevalier se deplace avec les touches 4 et 6 Dans le premier ta 
bleau, il doit ratlraper le roi qui tente de s'enfuir vers le donjon. Si le 
mi est rue, le preux chevalier se retrouve dans la salle du tr6ne oil est 
cachee la couronne . un dragon la protege et il crache du teu !Si pen- 
dant le premier tableau le roi reussit a penetrer dans le donjon, le 
deuxieme tableau apparait. Ou donjon de droite surgissent des 
monstres rampantset ailes ainsi que des dragons et le chevalier doit 
Se battre Q pour lever son epee el abaltre les monstres volanls. 
A pour les dragons et M pour les monstres rampants. Ouand quinze 
monstres sont terrasses. le troisicme tableau apparait 



pC 



a5 oo 



9*1 


nee «uh 




W 




HMV 

aY 




% 


w 




■utr 

W 


X» «*4 




w 




in-' ; 'jiu ... 



'00 CGOSUB 1100 

GPRIN1 

'. . 2, "i 
■'.'.. ->■ 19) X 



I I I 



URErt »»»»r****t 

2: REM - DONJON t 
3:REn » ET * 
i:REn t DRAGON * 
SJREn I PCI500 * 
6:RErt tO. FRANCE* 
7;REH tut* tit** 
8;CLEftR : PAUSE " 
DONJON E 
RAGON-.CLS 
9:W01 r 0) 

I :iJ-70:M=25: 
RONOOn :M "00 
8000H000":OP--1 
0000 

IHifJIM H«(2)*J0:B 

»ra; "00H4020I 

80":H-(l ; "ma 

8080800" :B»<2> 

"881020^800" 

Ii:n*-"60601062BF 
B24060* 

l2:E»="0008-fl64)f: 
1O1E644408'- 

13:Din A»(6)»t6:0 



2020201 ' 
14:O«(5>="0010t82 

83E2B«18J0" 
lfi;A»<3>-' , 2028't02 

0-I820-1010":A«< 

1)^ ■1010704028 

402820" 
lf,:tj Run /V>>m:< 

I90:G-5:W^540 



■ 

UJCPRJtn !'<*' '■' 
67; IF u> 

7000 
i,a: IF fl+8 

sees 

78:B«="037C7F7C7f 
7C03" : GCUR50R 



jiGPRINT 0*1 

GCURVik 
GPRINT 0* 
: 50 

IHW.Ut.l '■ . 

r. • i r . r o 123 

STEP 5 
I010:GCURSOR 1: 

CPRINI ii« ; l)« 

iHFEP 1,3, f 
I0I9INI KT I :Q n- i 
I0J6: IF P>J5I l l Q 

[' -nr-.ft: vim 

5300 
1020:G=RMD 3 
1021: IF ->1 I I G 



;n«;n» 
1034: if r, HI i 1 k 



1035: IF GMLEt R* 

7 
1036: IF G-3LET R- 



1037: GOTO ?100 
1 I0fl:f.» IHKEV* 10 
P"OP-l:H-H*. 
7 r . 
H0S:GCURSOR ti: 

DPRJHT "8800 
J07030IH3M713 
0800" 
1106: IF H>*A-9 
GOTO 5000 
f 170: JF A»="0"LET 
c\ fk* J i H ■ 1 1 9 
ft«*' , 4"L£T 
■ ■ 
I 140: IF M ' u I I i 
C'0 
190: m 'ivi i i 
i ' 

M Mi 

' 2 

■ ■■ I, 10, 11 
GCURSOR A: 
GPRINT E0I00 
;Fitrr:jj00;00 



1166: IF ff" 19) UJ 
AND (G-0>AND 

>r,nro 10 

Ilfi7: IF CA*15J-U> 
AND (G-10R 2 
)AND (C 03 
GOTO 1080 

1 170: IF >■<•• 15) U) 
AND <G-30R 4 
J AND cc y> 
(.11(11 1000 

11R0: IF A+JS>U 

l2ee:R| tui- , ri 

..■ i 129TQ 
0STEP 3 
-. 
GPRINT A»<GJ 



; "* 



1 108: 



■i 15SGOSU0 

■ 1,5, I73 

■ . 
GPRINT nt(K> 
;N»;n*;ni xt 



^008:UAIT 100: 

GCURSOR A*3: 
GPRIHT M*;N» 

BEEP iit.wnii 
100, MH: l 1 S 
:PRINI "I'IPII 
U":END 
'J400:WAIT 1MH: 
f.i URSOR U! 
HI n»:uu 

5500JCLS :Wft! I 0i 
' 0001 H 2SJfl 

40: U m 
5600: GCURSOR U! 

OWINT A»(8) 

eQCUR! 

CPRJNl R»: 

,!■■ 1451 

GPRINT Bt-i 
f,H)0: r,i. URSOR 80: 

GPRINT 'iri!8 

181018000008 

7»7B18JF7F" 



I 7-. 
00301 n oi i I i I'* 

--8B":K*r»e 

6040: GCURSOR K: 

GF'WINl Ut 
0045! VAJ 9000 

■ ■hi 1100 
Q0Q0I ii (P<F)AND 

<n< |'i>62) 

i.nm -)000 
i,H7»: r.nio 5600 
8] 231 HAH ?■■ 

.,)-■ SB) 

GPRINT ■0704 

070407H40704 

iGrutr.oft i.h 
iGPRINI K»fN 
>:8EEP 1.5.2 
'liwnil 8: 
GOTO 6060 
; RnD I0»(O* 
I5)>0i H:uu 9 



70001! 



GOTO 8000 
70iri-.N(.Xt I 

■■'.'■:. ■ 

i ITQ 

1 

R007:GCURSOR A: 

GPRINT "7f /I 
371861626100 

m i P i, I, v 

Nl Kt I i-50 

H 25 J GOTO L 
90001 i [ S 
900|:roR I 0TQ 23 

01 l,i n- 

J GPRINT "010 

774/'. ■ 

I - r i ■■ 

BR llll 

HI I P 1. '., I 

9002SGCURSOR M 

■-I ii*. 
GCURSOR 1451 

HI M»- 
■...;-' |0I 
PRINT ur; ■ 
: it.", .hi K1 



LE LOGICIEL 
DE LA SEMAINE 




awan . . . sur 
spectrum 

Celte cassetle, editee par ERE 
INFOHMATIOUE pour ZX SPEC- 
TRUM, est une des nombreuses 
vanantes dun jeu afncain appe- 
le AWARI. ou encore BAO. AWE- 
LE, MANKALA. KALAH. SOLO. 
WARI. GISSONO. elc 
Ce jeu. que beaucoup preten- 
dent connaitre, n'a pas la simpli- 
city que Ion veut lui preter 
Une reflexion poussee et une 
taclique sure sonl necessaires 
pour pouvoir jouer convenabte- 
ment el pretendre batlre I'ordi- 
rtateur Le principe du jeu est le 
suivant : Deux joueurs saffron- 
tent en effectuant des semailles 
et des moissons Chaque joueur 
a un camp constitue dun aligne- 
menl de "TROUS* en regard de 
ceux de ladversaire. Deux d'en- 
tre eux peuvenl etre particulari- 
ses le Camp (avec un grand C) 
de chaque adversaire. Au de- 
part, chacun des "TROUS NOR- 
MAUX" (non Camp) comporte 
un nombre egal de 'GRAINES* 
Chaque coup consiste alors a 
"SEMER" les graines dun trou 
de voire camp {avec un petit c). 
puis, eventuellement. a effec- 
tuer les moissons. 



Les semailles consistent tou 
jours a deposer les graines du 

■ 
des aiguilles dune montre. une a 

■ 
compris son Camp et celui de 
ladversaire. s'il y a lieu) 
Ce sont princlpalement les 
conditions de la mota 
lerencient les variantes. mais 
egalemenl le fait que Ion puisse 
rejouer un coup dans certains 
cas ou la disposition des trous 
en rangees. etc. C) 
Oans notre cas, le camp de cha- 
que joueur est constitue de 
6 cases contenant imtiaternent 
3 graines. plus le Camp (ou Ka- 
lah dans d'autres variantes) Lej 
moi5Son est realiseesi la dernie- 
re graine semee est deposee 
dans une case vide si celle en 
vis-a-vis ne rest pas Dans ce 
cas. la derniere graine semee 
ainsi que celles du trou en vis- 
a-vis deviennent votre propriete 
et sont deposees dans votre 
Camp Dans ie cas ou la derniere 
graine esl semee dans son pro- 
pre Camp, on rejoue (une fois 
seulement). On est oblige de 
joueretlegagnantestceluiquia 
eftectue les meilleures mois- 
sons quand I'un des deux 
joueurs ne peut plus jouer. 
Ce jeu de rellexion est realise en 
basic. Ce n'est pas. bien sur, 
I'animation qui aurait pu justifier 
I'utilisation du langage machi- 
ne. .. 

La presentation du jeu est claire. 
Son niveau non ajustable est 
moyen au debut, mais il compor- 
te la particularise interessante 
de sameliorer au fil des parties. 




J'ai pu constaier qu'etfectrve- 
ment les debuts de parties 
etaient differentes et que le 
SPECTRUM ameliorait sensible- 
men t son jeu. Peut-ildevenir im- 
battable? 

BABALOUK 

(*) Pour avoir plus de precisions 
sur le jeu africain, lire "WARI et 
SOLO - par A DELEDICQ et 
A. POPOVA. collection "les Dis- 
Iracks" Chez CEDIC. 



Wz^l Banc d'essai Duriez 



des 20 micro- 
Ordinateurs de pointe 




?.£ pa^es Envoi conlre 3 tim 
ores. Ulilisez le Son ci- 
dessous [graluil au magasin) 



• ''■•.). v ., wf (, W | in 

v.- ISlJp.o-. t o..(<o..| 370 

v< l°T6M.t» -.pew | <0 rt 770 

}l7Tkacsa-tfcw4 770 

v« l->is Voodoo tout* ('*) 770 

'. ; ^*o-om<o") ?t3 

Vm 3501 0,iw.. (io.il IvO 

COMMODOBf 64 
Commodore 6* PAL 2790 

64SECAM 3650 



VfC 1450 



370 



T.O. 7 * M<mt>-&Oik + JOn- 

monB*l» + logkiel Pie- 

tor «l Trap. 3/90 



TEXAS I. Tl 99 

Or*. los£olTI°4A 1190 




Ordlnottgr HP75C 
HP75C 8IW 

Modvb »«*»*• 8 K 2103 



■>:-:,»..- 

Mod.:* Sftt 



xo TV 3350 

OBICI 

D i', Ko a .-< ?•■: 



COMMODORE VIC 20 

.■-,.-■ ,.:■-■-,..■-> ',(=.« 
-.-. jHI 1590 

V* JO 1*b- 73/0 



■■'■:. 



r. VIC 1 5*1 

GP 10OvC-*w-* 

SO <o* 30 est 7*20 

TOOL 64 irtKnii Iconcudw] 6*0 

<G»:h 6* 1,0*0 -c'.| 6*0 

CAlCSE50tI|d.«*«! 1 312 
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prix 


v^w 









LOGKIfUD 0«G**rilNCH 

nnoHHmt 

MGOVtIS 

37 
37 
0HOOE1 

'«>»*. fo*t«m t/> 

osstm 



10000' M wit 



K ^ ........... ., 






400 micro-prix-charter 
en direct chez Duriez 



SINCLAIR ZX 81 



Unii* tmn"aln 



2480 



AJlwwwd vol. II toi»ft< 
HEWLETT PACKARD 

ciituuiwas 



M,*!C 
■■■■ *|( / 

HP4K X 



SANYO PHC25 



SHARP 

7*1 

u«Cf 137 BSO 

I7S0 

l~erMoM*C( ISO '"0 

PC IJCO. CE ISO 3*00 

-■■"■:• too 

'."CE 161 1700 

';--,•. v = - ! «CE 150 

1100 

tRSniCparalM* ISM 

-_-. JtO 

I 7*0 
«I?S1 I 300 

r«e.»o-» C( I3S I SOO ' 

»C1»1 tCI 17i 7900 

*C <7f, »C( ITS 7500 

PC 1 7*5 780 

PC 1745 -CI 125 3300 

MZ 720 2970 



Cs-**s., (&..«•**.< 



750 

Cwi'(WCO« 850 

Son * montnt d« t*vi 580 
Control • iMoordnq. .3800 
L*d d-tqu .7600 

M»-noboik 480 

i-p"wt *>»oa 7 tOQ 

Cede- -»>_o» lkf-«»i 

750 




(COM/f 



«F Pwl < 



Dwriti "Mdoi" (-is in 
compwiiifi d« 20 nirjo. 

otdaumn ta D Kn .endn <i> 30 F • 

tfKi Dvriei) coniic ) niebrti mbjll*|r 
* ZF . <dro«.>iiiO«i*W. 

''•dc"t«H>>«K>Ull|OW» 

w re'ir p*tr ptMMocopdc k(»l •ppwcitti) nwxJulri. 

ton ciW (IdOMiH). CafMflU o« o«.f»(n 

- S dHaarmcnr de wi* w Dw>t*. 9111 me tcnbouricri 

I -'■""■■"'•■— i^T.:- 

^ D C ■;«•"! tltrqwc df 



■ ■ '■• ilAI 

533 
37fl 
. 

58) 
407 
■ . . ■ . 
■ 

4*0 






*20 



DMMtStoMttH 



. . ■ 
■ 

■■ 
."») *90 




^1 



IMPHIMANTES 

fiOOA 7100 

S«*oAoC#7}0 3190 

WOO 48S0 

-r,....(»3; 2400 

8<o^orCE60 5050 

h.»r<ti„ :l JO 7315 

Ipvx ty 80 388* 



PETITES ANNONCES 
GRATUITES 




Vends APPLE II + 48 K. DRIVE + 
cont + moniteur PRINCE jaune 
+ paddles (dec. 82j+ nombreux 
programmes (jeu*- utilitaires. 
prof): le tout 12000 F P MEL- 
LIES, route de Juigne. res. "Les 
Hauls de Renac" - 44110 Cha- 
TEAUBRIANT. Tel. : (40) 81 80 04 
(apres 18 h). 

Vends moniteur PHILIPS ambre 
30 cm (fevr. 83) ; 1 000 F ; et carte 
80 col. APPLE lie (mai 83) : 700 F. 
A. MAILLARD. ecole de Soubran 
- 1 71 50 MIRAMBEAU. Tel : (46) 
49.67.03. 

Vends Tl-99/4 A + prise PAL + 

cordon magnetophone + ma- 
nuel (achete nov. 83 1900 F) 
vendu: 1100 F + 11 mois de 
garantie. Etienne RUFF 1. rue 
Deserts - 67000 STRASBOURG 
Tel 16(89) 27.27.58. 

Vends imprimante SHARP PC 
1500 + imprimante (CE 150) + 
module 8 Ko (CE 1 55). etat neuf : 
3000F.£mileAZULAY23.bddes 
Cerisiers - 13012 MARSEILLE 

Vends AIM 65 ROCKWELL basic 
+ assembleur 4- carte video + 
8 K RAM + lecteur k7 + nom- 
breux logiciels + documenta- 
tion : vendu 3500 F (neuf: 
8000 F). Godefroy VANETTI 28. 
rue Barada - 33000 BORDEAUX 
73 : 52-64.85. 

Vends 1 300 F FX- 702 P CASIO + 
FA 2 + FP 10 + nombreux pro- 
grammes k7 accompagnes dun 
carnet explicatif + mode d'em- 
ploi. Excellent etat. Franck 
MUNSTER. res Pare Montebel- 
lo. Les Bruyeres. 180. av Le Pes- 
sicart - 06100 NICE Tel : (93) 
51 96.04. 

Vends Tl-99/4 A + basic etendu 
+ magneto + module adventure 
avec cassette pirate + Parsec + 
Tombstone + 1 paire manettes 
spectravision + livres et listing 
programmes: le tout 2200 F. 
Vends console jeu video ATARI 
avec 2 paires de manettes + 9 
cassettes de jeux (Megamania. 
Pacman ); 2100 F. 
Vends un televiseur N et B porta- 
ble, ecran 30 cm, alimentation 
secteurel batterie 12 volts avec 
cordons: 400 F M JACQUET. 
Tel : 29547 44 -45 (bureau) 



Possesseur de LASER 21 Cher- 
che correspondent po^: 
LASER 200 ou 210 pour ■■ 
ger idees et programme', 
dene ViGER- 7501 7 PARIS Tel 
27088.12. 

ORiCl -48Ket manettes 

aveemtertaceer-:- 

au moyen dune routine afm de 

pouvoir jouer ensemble sur les 

programmes verrouilles Patrick 

SANOUER 2. rue Farman - 78140 

VELIZY Tel : 946 66 52. 

Vends TI-99'4 A (nov 83) + EX- 
TENDED BASIC + 3 k7 logiciel + 
revue: 1600 F. 

Vends PC 1500 F + imprimante 
+ 8K + 7K logiciel + 3 lines: 
4000 F. Jose GOME2 14 t 
R-Salengro - 93160 NOISY-LE- 
GRAND Tel.: 304 6346 (apres 
!9h30>. 

Vends HP 85 (ecran N et B. im- 
primante 12 cm el lecteur de 
cartouche integres) -*• b 
theque STANDARD. STATISTI- 
OUE. MANIPULATION de DON- 
NEES + 10 cartouches Valeur 
3O0O0 F. vendu 15000 F. M. 
CHARBONNIER. rue G-Braque. 
imm. Bourdonnais - 76530 
GRAND-COURONNE Tel bur : 
(32) 43 08 20. dom (35) 68.24.81 . 

Vends FX-702 P + imprimante 
FP-10+ manuels+ Rlx + 1 livre. 
"La conduite du FX-702 P'. + 
nombreux programmes de jeux 
+ 1 cassette C 60 avec 14 pro- 
grammes : le lout 1 300 F Robert 
LAURENT 11. rue Briddennes - 
89700 TONNERRE Tel : (86) 
5515.49 (apres 16 h). 

Vends VCS ATARI (Noel 82) va- 
leur 1200 F. vendu 950 F. 
Vends cartouches (Pele's 
Soccer. Tnch Shot. Sking. Pitfall. 
Enduro. Outlaw. Street Racer), 
les 7: 1150 F au lieu de 1700 F 
neuves (peuvent etre vendues 
separement). Tel 671 71.48 

Cherche schema de montage 
de I'interface de jeux pour ORIC 
1 Tel. 671 71 48 

CBM 64 recherche personne 
possedanl programmes jeux 
ou utilitaire PROUST Francois, 
gare routiere. 17310 ST-PIERRE 
D'OLERON 



SOLUTION DE L'HIPPOREBUS : 



10 FOR 1=1 TO 13 

20 READ X 

30 PRINT CHR$ (X) ; 

40 NEXT I 

50 END 

60 DATA 67,79,78,67,65,84,69,78,65, 

84,73,79,78 
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MP 4 1 par M BON- 
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